var
 H: thandle;
 f: tfiletime;
begin
 h := kol.FileCreate(fname, ofOpenReadWrite or ofShareDenyNone or ofOpenExisting);
 if H <> -1 then
 begin
 kol.DateTime2FileTime(now, f);
   SetFileTime(h, @f, @f, @f);
   CloseHandle(H);
 end;
, отпишитесь как работает и поделитесь ехешником -- у меня либо AV при открытии, либо без ошибок и изменения даты.

program _ext_;

uses  windows,kol;

var
MainForm:PControl;
Label1,Label2:PControl;
H:thandle;
f:tfiletime;
fname:KOLString;
begin
Applet := NewApplet('DateTime2FileTime');
MainForm := NewForm (Applet, 'DateTime2FileTime').SetPosition(120,120).SetSize(400,200);
fname := 'Test.txt';
Label1 := NewLabel(MainForm, 'fname: '+ fname).SetPosition( 20, 20).SetSize(100,20);
h := FileCreate(fname, ofOpenReadWrite or ofShareDenyNone or ofOpenExisting);
Label2    := NewLabel(MainForm, 'handle: '+ int2str(H)).SetPosition( 160, 20).SetSize(100,20);
if H <> DWORD(-1) then // Windows.INVALID_HANDLE_VALUE = DWORD(-1);
begin
 DateTime2FileTime(now, f);
 SetFileTime(h, @f, @f, @f);
 CloseHandle(H);
end;
Run(Applet);
end.