1:
2:
3:
4:
5:

zahl1 := edit1.Text;
zahl2 := edit2.Text;
rechnung := strtofloaT(zahl1+rechenoperationen[random(3)]+zahl2);

label1.Caption := floattostr(rechnung);					

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

operation:=random(4);
if operation = 0 then
  {Addieren}
else if operation = 1 then
  {Subtrahieren}
[...]					

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

operation:=random(4);
case operation of
  0: {Addieren};
  1: {Subtrahieren};
  2: ...
  3: ...
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
var
 zufallszahl : integer;
begin
randomize;

zufallszahl := random(3);

if zufallszahl = 0 then
button2click(self);
...