Problema con TDateTimePicker
 

Hola foristas...

En esta ocasion tengo un problema con el manejo de la hora haciendo uso del TDateTimePicker, lo q necesito es obtener el valor en formato de 24h (ejemplo 6:00 PM -> 18:00) ya intente lo siguiente: DateTimePicker1.Format:- 'HH:mm:ss', pero cuando trato de pasarlo a string:

Código Delphi [-]
var
cadena: string;
begin
       cadena:= TimeToStr(DateTimePicker1.Time);
end;

lo regresa nuevamente al formato AM/PM

Agradezco como siempre su atención.

Salu2 :cool:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(FormatDateTime('hh:mm:ss am/pm',DateTimePicker1.Time));
ShowMessage(FormatDateTime('hh:mm:ss',DateTimePicker1.Time));
end;

Un Saludo.