Klar geht das mit FormatDateTime, gerade unter Tokyo.1 getestet.
Delphi-Quellcode:
procedure TForm10.Button1Click(Sender: TObject);
var
mytime: TDateTime;
begin
mytime := Trunc(Now);
Label1.Caption := FormatDateTime('ddddd tt', mytime, TFormatSettings.Create);
end;
Das liefert im Label dann "30.08.2017 00:00:00"
Ansonsten ist das Verhalten von DateTimeToString "as designed".
Sherlock