PRECISO DESSA AJUDA :d

A função abaixo mostra como adquirir a data e hora de um arquivo
function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

Espero ter ajudado !!!

você pode pegar as horas do windows(sistema) e na hora de criar ela é incrementada .........


procedure TFormPrincipal.FormShow(Sender: TObject);
var
vdata:Tdate;
begin
DM.tbaluno.Append;
DM.tbimpressora.Append;
DM.tbNcopia.Append;
vdata:=date;
DbEdit2.Text:=datetostr (vdata);
end;