var
FTime,FDate,WRDate:PFILETIME;
i:Boolean;
res:HFILE;
Buf:_OFSTRUCT;
filenamre:String;
Buffer: PChar;

GetMem(FTime, 1024 );
GetMem(FDate, 1024 );
GetMem(WRDate, 1024 );

res:=OpenFile('c:\123.bat',Buf,OF_READ);
i:=GetFileTime(res,
    FTime ,	// address of creation time
    FDate ,	// address of last access time
    WRDate  	// address of last write time
    );


GetMem(Buffer,Length(FloatToStr(FTime.dwLowDateTime)));

StrCopy(Buffer,PChar(FloatToStr(FTime.dwLowDateTime)));

Memo1.Lines.Add(buffer);