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

If Zufall =1 then begin
if RadioButton2.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
 end
else
Showmessage ('Falsch!!!')  ;
Falsch:=Falsch+1;
end;


If Zufall=2 then
If Radiobutton1.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
end
else
Falsch:=Falsch+1;
showmessage ('Falsch!!!');                    

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

if RadioButton2.Checked=true then begin
showmessage ('Richtig!!!');
Richtig:=Richtig+1
 end
else
Showmessage ('Falsch!!!')  ;
Falsch:=Falsch+1;
end;                    

1:

If Zufall =1 then begin                    

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

  if zufall = 1 then begin
    {Das ganze Zeug halt}
  end
  else if zufall = 2 then begin
    {Das andere Zeug halt}
  end;                    

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

  if zufall =1 then
    //some stuff
  else if zufall = 2 then
    //some stuff
  else if zufall = 3 then
    //some stuff
  else {...}

  {...}else if zufall = n then
    //some stuff
  else      //letztes else ohne if danach tritt ein wenn kein if vorher erfüllt wurde.
    //some stuff                    

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

var
  b: Boolean;
  r: Integer;
...
  r := Random(2)+1;
  b := (r = 1) and RadioButton1.Checked or (r = 2) and RadioButton2.Checked;

  if b then ...