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;