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

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(Random(10));//Zufällige Zahl zwischen 1 und 10
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Random(10));
end;                    

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

randomize; //startet random funktion
zahl:=random(deinezahl);  // wählt eine zufällige zahl aus
edit1.text:= inttostr(zahl); // trag die zahl in den edit ein
//fallst du ncith weißt inttostr heißt Integer to String also praktisch zahl zu text umwandeln
//es gibt auch StrtoInt also wenn du ne zahl als string hast (z.b. wenn du in einen edit ne zah reinschreibst)
//dann erkännt er diesen Strin als Integer                    

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

procedure TForm1.Button1Click(Sender: TObject);
var

   I: Integer;
 begin
   Randomize;
   for I := 1 to 50 do begin
     { Ausgabe an zufälligen Positionen im Fenster }
     Canvas.TextOut(Random(Width), Random(Height), 'Fang mich!');
 
 end;
end;                    

1:
2:

If edit1.text = edit2.text then
  labe11.caption := IntToStr(punkte);                    

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

If edit1.text = edit9.text then
   label25.caption := IntToStr(5)
else label25.caption := IntToStr(0);

If edit5.text = edit13.text then
   label30.caption := IntToStr(5)
else label30.caption := IntToStr(0);

If edit2.text = edit10.text then
   label26.caption := IntToStr(5)
else label26.caption := IntToStr(0);                    

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

procedure TSingleplayergame.Button1Click(Sender: TObject);
begin
randomize;
Zahl:=random(7);
edit2.text:=floattostr(zahl);

spielzahl:=strtofloat(edit1.text);
if spielzahl=Zahl then        //wenn Spielerzahl gleich zahl ist
   begin
     Spielerpunkte:=Spielerpunkte+1;      // bekommt er +1 Punkt
     label4.caption:=floattostr(Spielerpunkte);
   end;

if Spielerpunkte=5 then  //wenn spieler 5 punkte hat
   showmessage(panel1.caption+' hat gewonnen'); //hat er gewonnen
end;                    

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:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit9.Text:=IntToStr(Random(5));
Edit10.Text:=IntToStr(Random(5));
Edit11.Text:=IntToStr(Random(5));
Edit12.Text:=IntToStr(Random(5));
Edit13.Text:=IntToStr(Random(5));
Edit14.Text:=IntToStr(Random(5));
Edit15.Text:=IntToStr(Random(5));
Edit16.Text:=IntToStr(Random(5));
If edit1.text = edit9.text then
   label25.caption := IntToStr(5)
else label25.caption := IntToStr(0);

If edit5.text = edit13.text then
   label30.caption := IntToStr(5)
else label30.caption := IntToStr(0);

If edit2.text = edit10.text then
   label26.caption := IntToStr(5)
else label26.caption := IntToStr(0);

 If edit6.text = edit14.text then
   label31.caption := IntToStr(5)
else label31.caption := IntToStr(0);

If edit3.text = edit11.text then
   label27.caption := IntToStr(5)
else label27.caption := IntToStr(0);

If edit7.text = edit15.text then
   label32.caption := IntToStr(5)
else label32.caption := IntToStr(0);

If edit4.text = edit12.text then
   label28.caption := IntToStr(5)
else label28.caption := IntToStr(0);

If edit8.text = edit16.text then
   label33.caption := IntToStr(5)
else label33.caption := IntToStr(0);

end;

end.                    

1:

lbAusgabe.caption:=floattostr(strtofloat(label1.caption)+strtofloat(label2.caption)+strtofloat(label3.caption))                    

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

procedure TForm1.addiere;
VAR 
 iZahl1, iZahl2, iZahl3, iErgebnis:real; //wenn es nur ganze zahlen sind kannst du auch integer nehmen
begin
 iZahl1:=strtofloat(label1.caption); //wenn du integer genommen hast schreibst du strtoint
 iZahl2:=strtofloat(label2.caption); //wenn du integer genommen hast schreibst du strtoint
 iZahl3:=strtofloat(label3.caption); //wenn du integer genommen hast schreibst du strtoint
 iErgebnis:=iZahl1+iZahl2+iZahl3;
 lbAusgabe.caption:=floattostr(iErgebnis); //wenn du integer genommen hast schreibst du inttostr
end;                    

1:
2:
3:

while StrToFloat(label34.caption) >=15  do

Image1.Picture.LoadFromFile('pokal.bmp');                    

1:
2:

if StrToFloat(label34.Caption) >= 15 then
  Image1.Picture.LoadFromFile('pokal.bmp');