jajaja para pasarlo a numerico no habia que hacer tanto atao aqui les dejo algo mas clarito:
Código Delphi
[-]
if StrToInt(Copy(TimeToStr(Time), 0, 2)+Copy(TimeToStr(Time), 4, 2)) > 1200 then
Button1.Caption:= 'Registrar la Entrada de la Tarde'
else
Button1.Caption:= 'Registrar la Entrada de la Mañana';
SALU2
Gracias a
[egostar] pude darme cuenta gracias.