Geht das nicht?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
MyDateTime: TDateTime;
begin
s := DateTimeToStr(now);
MyDateTime := StrToDateTime(s);
s := DateTimeToStr(MyDateTime);
Showmessage(s);
end;
Kommt sogar mit meinem eingestellten Datumsformat yyyy-MM-dd hh:mm klar.