Otra solución sin pasarlo a numérico (una idea muy interesante de
cmm07 )
Código Delphi
[-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Time > StrtoTime('12:00') then
Button1.Caption:= 'Registrar la Entrada de la Tarde'
else Button1.Caption:= 'Registrar la Entrada de la Mañana';
end;
procedure TForm1.FormShow(Sender: TObject);
begin
if Time > StrtoTime('12:00') then
Button1.Caption:= 'Registrar la Entrada de la Tarde'
else Button1.Caption:= 'Registrar la Entrada de la Mañana';
end;
Salud OS