[marcoszorrilla]

Yo la función en sí la dejaría:

Código Delphi [-]
cHora:TTime;
begin
 Try
cHora:=StrToTime(Lo_que_sea);
Except
ShowMessage('El formato de fecha es incorrecto');
edit1.SetFocus;
end;
end;

Un Saludo.