Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var
Aktdatum, StartDate, EndDate : Date;
begin
AktDate := Date(); //Aktuelles Datum
StartDate := EncodeDate( <Jahr>, <Monat>, <Tag>);
EndDate := ...
if (Trunc(Aktdatum) > Trunc(Startdate))) and (Trunc(Tdate) < Trunc(EndDate))) then
StartDate und Enddate natürlich auch passende Werte zuweisen.