Format 12h -> 24h

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 ?

po pierwsze, timetostr używa pola LongTimeFormat, a
po drugie, twój format powinien być 'hh:nn:ss'