1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.ZeitFuerSpieler1;
var a,b:real;
begin
a:=strtofloat(Label7.Caption);
while spieler1.Checked=true do
begin
b:=a+0.01; //Zahl in Label7 wird um 1 Hundertstel erhöht
Label7.Caption:=floattostr(b); //Variable wird ausgegeben
sleep(10);
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

var start:real;  //globale Variable: Start
[...]
procedure TForm1.aClick(Sender: TObject);
var x,y:real;
begin
if s1.Checked=true then
begin
a.Text:=' X';
s1.checked:=false;  //RadioButton von Spieler1 wird Deaktiviert
Label7.Caption:=SecondsBetween(start,now);  //Undefinierter Bezeichner 'SecondsBetween'
s2.checked:=true; //RadioButton von Spieler2 wird Aktiviert
start:=now;
end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

uses dateutils
var start:real;  
[...]  
procedure TForm1.aClick(Sender: TObject);  
var x,y:real;  
begin  
if s1.Checked=true then  
begin  
a.Text:=' X';  
s1.checked:=false;  
Label7.Caption:=SecondsBetween(start,now);  //Inkompatible Typen 'Sting' und 'Int64' 
s2.checked:=true; 
start:=now;  
end;  
end;