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

begin
randomize
a:=random(100)+1;
b:=random(100)+1;
label1.caption:= IntToStr(a)+'+'+IntToStr(b)+'=';
end;					

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomnize;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  a:=random(100)+1;
  b:=random(100)+1;
  label1.caption:= IntToStr(a)+'*'+IntToStr(b)+'=';
end;					

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

var c: Char;
    tmp: Integer;
begin
  tmp := Random(4);
  case tmp of
    0: c := '+';
    1: c := '-';
    2: c := '*';
    else c := ':';
  end;
  // ...
end;					

1:
2:
3:
4:
5:

const
  op = '+-*/';
begin
  Label1.Caption := Format('Berechne: %d %s %d = ?', [Random(100), op[Random(4)+1], Random(100)]);
end;					

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

...
var
c:char;
tmp:Integer;

begin
randomize
a:=random(100)+1;
b:=randoom(100)+1;
tmp:=random(4);
case tmp of
0:c:='+';
1:c:='-';
2:c:='*';
else c:=':';

label1.caption:= InToStr(a)+tmp+IntToStr(b)+'=';

end;
...					

1:

[Warnung] Unit1.pas(29): Variable 'i' ist möglicherweise nicht initialisiert worden					

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

var Operator: Char;
    TMP: Integer;
begin
  TMP := random(4);
  case TMP of
    0: Operator := '+';
    1: Operator := '-';
    2: Operator := '*';
    3: Operator := '/';
    else ShowMessage('Fehler beim zufälligen ermitteln des Operators.'); //wenn's denn unbedingt sein muss^^
  end;
end;					

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

case tmp of 
0:c:='+'; 
1:c:='-'; 
2:c:='*'; 
else c:=':'; 
end;

label1.caption:= InToStr(a)+c+IntToStr(b)+'=';					

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

  case tmp of
  0:
    c:='+';
  1:
    c:='-';
  2:
    c:='*';
  else
    c:=':';

    label1.caption:= InToStr(a)+tmp+IntToStr(b)+'=';
  end;					

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

  case tmp of
  0:
    c:='+';
  1:
    c:='-';
  2:
    c:='*';
  else
    c:=':';
  end;

  label1.caption:= InToStr(a)+c+IntToStr(b)+'=';					

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

procedure irgendwas;
begin
  if bla then
    begin
      case tmp of
        0: machwas;
        1: machwasandres;
        else
          sonstwas;
      end; // case tmp
    end; // if bla
end; // procedure irgendwas					

1:

label1.caption:= IntToStr(a)+c+IntToStr(b)+'=';