Stopuhr bauen^^

[Andreas L.]

Danke für eure antworten.

Code:

Undefinierter Bezeichner: MinuteOf

Was nun?

Hier mein Code:

Code:

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

  If MinuteOf(now - StartTime) = form2.memo1.text then
    begin
      Timer1.Enabled := false;
      // Hier noch Sound abspielen
    end;
end;

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