Holen Sie sich das aktuelle Datum Delphi
var
currentDate: TDateTime;
begin
currentDate := Now;
ShowMessage(DateToStr(currentDate)); //Show the current date
ShowMessage(TimeToStr(currentDate)); //Show the current time
end;
Ruben