procedure TForm1.btn1Click(Sender: TObject);
var
D:TDateTime;
s:string;
begin
D:=VarToDateTime(‘20-01-01 04:35PM‘);
S:=FormatDatetime(‘YYYY-MM-DD HH:MM:SS‘,D);
showmessage(s);
end;