var
Handle1, Handle2:HFile;
FTime1, FTime2:TFileTime;
STime1, STime2:TSystemTime;
begin
  Handle1 := CreateFile(PChar('d:\plagin wim\base\bal\bal16.dbf'), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING,  0 ,  0 );
  Handle2 := CreateFile(PChar('q:\bin\common\test\bal16.dbf'), GENERIC_READ, FILE_SHARE_READ,
nil, OPEN_EXISTING,  0 ,  0 );

 GetFileTime(Handle1, @FTime1, nil, nil);
 GetFileTime(Handle2, @FTime2, nil, nil);

 FileTimeToSystemTime(FTime1, STime1);
 FileTimeToSystemTime(FTime2, STime2);

 CloseHandle(Handle1);
 CloseHandle(Handle2);

 with STime1 do
  ShowMessageFmt('Дата создания файла bal16.dbf: %.2d.%.2d.%.4d', [wDay, wMonth, wYear]);
with STime2 do
  ShowMessageFmt('Дата создания файла bal16.dbf: %.2d.%.2d.%.4d', [wDay, wMonth, wYear]);