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

private
    { Private-Deklarationen }
    procedure Menuwechsel;
    procedure Motorenreperatur;
    procedure Wetterwechsel;
    procedure Startreifen;
    procedure KITanken; 
....

procedure THomeF1Manager.AktionClick(Sender: TObject);
begin
Menuwechsel;
Motorenwechsel;
Wetterwechsel;
Startreifen;
KITanken;
end;					

1:

function Irgendwas: Integer; inline;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:

x:=1000000;
repeat
x:=x-1;
...

if ZU3 = X then begin
   if Aktion.Caption = 'Rennen!' then begin
   if Z3 = 1 then begin
   EgMemo.Lines.Add('Motorschaden');
   Renninfo.Lines.Add(''+(F3)+' hat einen Motorschaden');
   DNF3:=1;
   M3:=5000;
   end;
   if DNF3 = 0 then begin
   if ZF3 > 5 then begin
   ReMemo.Lines.Add(''+(F3)+'');
   Tankstops.Lines.Add(''+floattostr(TA3)+'');
   if XY = 0 then begin
   XY:=XY+1;
   ZX:=ZU3;
   EgMemo.Lines.Add(''+floattostr(ZU3)+'');
   end
   else begin
   ZE3:=ZX-ZU3;
   ZE3:=ZE3/1000;
   EgMemo.Lines.Add('+'+floattostr(ZE3)+'');
   end;
   if RV2=0 then begin
   Reifen.Lines.Add('B');
   end;
   if RV2=1 then begin
   Reifen.Lines.Add('M');
   end;
   end;
   if ZF3 = 0 then begin
   Renninfo.Lines.Add('Runde '+floattostr(RU)+' - '+(F3)+' bleibt im Kiesbett stecken, das Rennen ist für ihn beendet');
   DNF3:=1;
   ZF3:=100;
   end;
   if ZF3 = 1 then begin
   Renninfo.Lines.Add('Runde '+floattostr(RU)+' - '+(F3)+' kollidiert, sein Frontflügel ist ab');
   ZU3:=ZU3-25000;
   TA3:=TA3+1;
   ZF3:=100;
   end;
   if ZF3 = 2 then begin
   Renninfo.Lines.Add('Runde '+floattostr(RU)+' - '+(F3)+' hat sich gedreht');
   ZU3:=ZU3-5000;
   ZF3:=100;
   end;
   if ZF3 = 3 then begin
   Renninfo.Lines.Add('Runde '+floattostr(RU)+' - '+(F3)+' berührt seinen Vordermann, beide rutschen von der Strecke');
   ZU3:=ZU3-2500;
   ZF3:=100;
   end;
   if ZF3 > 3 then begin
   if ZF3 < 6 then begin
   Renninfo.Lines.Add('Runde '+floattostr(RU)+' - '+(F3)+' war kurz neben der Strecke');
   ZU3:=ZU3-1000;
   ZF3:=100;
   end;
   end;
   if Y=1 then begin
    P3:=P3+PR1;
    GS3:=GS3+1;
    end;
    if Y=2 then begin
    P3:=P3+PR2;
    if ZU3 > 10 then begin
    if TeamS = 1 then begin
    DominS:=DominS+1;
    end;
    end;
    end;
    if Y=3 then begin
    P3:=P3+PR3;
    end;
    if Y=4 then begin
    P3:=P3+PR4;
    end;
    if Y=5 then begin
    P3:=P3+PR5;
    end;
    if Y=6 then begin
    P3:=P3+PR6;
    end;
    if Y=7 then begin
    P3:=P3+PR7;
    end;
    if Y=8 then begin
    P3:=P3+PR8;
    end;
    if Y=9 then begin
    P3:=P3+PR9;
    end;
    if Y=10 then begin
    P3:=P3+PR10;
    end;
    if Aktion.Visible = False then begin
    if Y < 11 then begin
    STR3:=STR3+11-Y;
    end;
    end;
    Y:=Y+1;
   end;
   end;
   end;
...

until x=0					

1:
2:
3:
4:
5:
6:
7:

if Y=3 then begin 
P3:=P3+PR3; 
end; 
if Y=4 then begin 
P3:=P3+PR4; 
[...]
end;					

1:
2:
3:
4:
5:
6:
7:
8:

type TParts = set of (pFrontflügel, pMotor...); // weiß jetzt nicht wie das alles auf Englisch heißt
class TCar = class
  private
    FSpeed : Word;
    FDead : Boolean;
    FParts : TParts;
    [...]
end;					

1:
2:
3:
4:
5:
6:
7:
8:

//Fahrer einsteigen
[...]

//Anschnallen
[...]

//Auto starten
[...]					

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

if ZU3 = X then begin
    if Aktion.Caption = 'Rennen!' then begin
        if Z3 = 1 then begin
            EgMemo.Lines.Add('Motorschaden');
            Renninfo.Lines.Add(''+(F3)+' hat einen Motorschaden');
            DNF3:=1;
            M3:=5000;
        end;
...					

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

type TAuto=record
   Tank: integer;
   Geschwindigkeit: TPoint;
   Position: TPoint;
end;

var Auto: TAuto;
[...]
 Auto.Tank:=Auto.Tank+500;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TFormel1Manager.Zeitenberechnungen;
begin

 for i:=1 to 21 do begin
  if Reifenvertrag[i] = 0 then begin
  RT[i]:=S2*60;
  end;
   if Reifenvertrag[i] = 1 then begin
   RT[i]:=S1*60;
   end;

    Motor[i]:=Motor[i]-S1*2-random(8);
    Benzinmenge[i]:=Benzinmenge[i]-3;
    Zeiten[i]:=Fahrerstaerken[i]+Teamstaerken[i];
    RundeGetroffen[i]:=random(12)+11;
    Zeiten[i]:=Zeiten[i]*RundeGetroffen[i]-Fronteinstellung[i]-Heckeinstellung[i];
    Zeiten[i]:=Zeiten[i]-Reifenkompalibität[i]-Benzinmenge[i]-Wettereinfluss[i];
    Zufallsereigniss[i]:=random(500);

     if Aktion.Caption = 'Rennen!' then begin
     Zeitunterschied[i]:=Zeitunterschied[i]+Zeiten[i];
     end;

      if Motor[i] < 1 then begin
      Zeit[i]:=1;
      end;

 end;                                                                           //Gefahrene Runde

end;