1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function GetDateiDatum(const aName:String):String;
var fh     :THandle; 
    fdata  :TWin32FindData; 
    ft, wt :TFileTime; 
    st     :TSystemTime;
begin 
  Result:=''; 
  fh:=FindFirstFile(PChar(aName), fdata); 
  if (fh<>Invalid_Handle_Value) then 
  begin 
    ft:=fdata.ftLastWriteTime; 
    FileTimeToLocalFileTime(ft, wt); 
    FileTimeToSystemTime(wt, st);
    with st do Result:=Format('%0.2d.%0.2d.%0.4d', [wDay, wMonth, wYear]); 
  end;
  Windows.FindClose(fh); 
end;					

1:

Mem :=GetDateiDatum(ExtractFilePath(ParamStr(0))+'\db\Firmendata.gdb');					

1:
2:
3:
4:
5:

ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'VarIni.ini');
  try
    Ini.WriteString('Variablen','Dateidatum',mem);
finally
 ini.Free;