Erstes Delphi Programm =)

[BullsEye]

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.