Delphi-Quellcode:
...
VAR zeit : Integer;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeit := zeit +1;
end;
So zählst du die Zeitvariable immer um 1 hoch.
Musst halt sobald er das Spiel beginnt den Timer Enablen und die Zeit auf 0 setzten.
Delphi-Quellcode:
Timer1.Enabled := true;
zeit := 0;
Sobald er dann gewonnen hat wieder Disablen und die Zeit ausgeben.
Delphi-Quellcode:
Timer1.Enabled := false;
ShowMessage(IntToStr(zeit));
Code ausm Kopf.