Bei gewünschtem Zeitraum etwas tun ???

[benst]

Lösungsvorschlag:

-2 DateTimePicker (erste: Kind:=dtkDate, zweite Kind:=dtkTime)
-1 Edit
-1 Button
-2 Timer

DateTimePicker: Startzeitpunkt
Edit: gewünschte Länge in Minuten
Button: Start

Delphi-Quellcode:

procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  DateTimePicker2.DateTime := DateTimePicker1.DateTime;
end;

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if now >= DateTimePicker2.Time then
    begin
    Timer1.Enabled:=false;
    Timer2.Enabled:=true;
end;


procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if now >= DateTimePicker2.Time + 1/(24*60)*StrToFloat(Edit1.Text) then
    begin
    Timer2.Enabled := false;
    exit;
    end;
    //do something
end;

//optional
procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.DateTime := now;
  DateTimePicker2.DateTime := now;
end;

Gruß
Ben
P.S.: Frag nach, falls du es nicht verstehtst!