Termin vorher ansagen :)

[CReber]

Explizit genommen so Spart Platz

Delphi-Quellcode:

procedure TForm1.TestbuttonClick(Sender: TObject); 
  var Datum : string; 
begin 
   if StrToDate(Datum) = DateOf(Now-2) then 
     ShowMessage('Reminder'); 
end;