[vtdeleon]

Otra forma es usar FormatDate o FormatDateTime (No me acuerdo bién cual de las dos es)

Código Delphi [-]
var
  Hora:String;
begin
  Hora:=FormatDateTime('HH:MM:SS AM/PM', Now);//Now devuelve la hora y fecha actual
  Showmessage(Hora);
  ...
  ...
end;