Código Delphi [-] procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh:mm',Time) = Edit1.Text then label1.Caption:='Atención es la hora'; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin if FormatDateTime('hh:mm',Time) = Edit1.Text then label1.Caption:='Atención es la hora'; end;