Código Delphi [-] uses DateUtils; procedure TForm1.Timer1Timer(Sender: TObject); begin if MinuteOf(Now)=0 then Edit1.Text:= ''; end;
uses DateUtils; procedure TForm1.Timer1Timer(Sender: TObject); begin if MinuteOf(Now)=0 then Edit1.Text:= ''; end;