Stopuhr bauen^^

[scp]

Oder so:

Delphi-Quellcode:

Var
  StartTime : TDateTime;  // Globale Variable

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr(now - StartTime);

  If MinuteOf(now - StartTime) = 10 then  // Wenn zehn Minuten vergangen  sind
    begin
      Timer1.Enabled := false;
      // Hier noch Sound abspielen
    end;
end;

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