Pengingat

procedure TForm2.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true ;
end;



procedure TForm2.Timer1Timer(Sender: TObject);
var A:tform;
begin
Edit2.Text := FormatDateTime('HH:MM:SS AM/PM',now) ;
if FormatDateTime('H:MM:SS AM/PM',now)=timetostr(DateTimePicker1.Time) then begin

ShowMessage(Edit1.Text) ;
Timer1.Enabled := false ;
end;