Código Delphi [-] implementation uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin if TimeOf(DateTimePicker1.Time) > Time then ShowMessage('Mayor') else ShowMessage('Menor'); end;
implementation uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); begin if TimeOf(DateTimePicker1.Time) > Time then ShowMessage('Mayor') else ShowMessage('Menor'); end;