[vitalik1]

Добавь вот эти функции с английской справки:

function ImageFromCanvas(x,y,width,height: integer): image;
function ImageFromImage(sourceImg: image; x,y,width,height: integer): image;
function FormAddDateField(label: string; type: integer): integer;
function FormGetDate(index: integer): integer;
procedure FormSetDate(index,dateTime: integer);
function GetFormTitle: string;
procedure RemoveFormTitle;
procedure SetFormTitle(title: string);
procedure CloseRSEnumeration(reEnumIdx: integer);
function EnumerateRecords(rs: recordStore): integer;
function GetRecordStoreNextId(rs: recordStore): integer;
function GetRecordStoreSize(rs: recordStore): integer;
procedure ModifyRecordStoreEntry(rs: recordStore; nwData: string; index: integer);
function NextRecord(rsEnumIdx: integer): string;
procedure UpdateRSEnumeration(rsEnumIdx: integer);



Вместо trunc можно использовать вот это:

function trunc_(r: real): integer;
var
a: integer;
begin
a:=trunc(r);
if a>r then a:=a-1;
trunc_:=a;
end;