procedure TForm1.Button1Click(Sender: TObject);
var
t:tformatsettings;
begin
t := tformatsettings.Create; // dla XE ; GetLocale...
t.TimeSeparator := ':';
t.ShortTimeFormat := 'HH:mm:ss';
showmessage(timetostr(time, t));
end;
Nie konwertuje do 24h. Wychodzi 12:14:59 :>
Jakaś sugestia ?