Cambiar formato 12 Hr's a 24 Hr's

[[xEsk]]

Hola, a ver si esto te lo soluciona:

Código Delphi [-]
var
  Fecha: TDateTime;
  Resultado: String;

begin
  // hora a convertir
  Fecha:=StrToTime('03:00:00 pm');
  // convertir hora a string
  DateTimeToString(Resultado, 'hh:mm:ss', Fecha);

Lo que hace este ejemplo, es obligarle a formatear la hora en formato de 24h. Si no quieres mostrar los segundos, simplemente quitale ":ss" y ya esta...

Te enlazo este link donde hay mas información.

Saludos.