hilfe bei delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
nummer := 0;
richtig := 0;
end;

procedure TForm1.ButtonAufgabeClick(Sender: TObject);

var zahl1,
zahl2, zeichen : byte;

begin
zahl1 := random (10);
zahl2 := random (10);
zeichen := random (3);
case zeichen of
0 : begin
ergebnis := zahl1 + zahl2;
PanelAufgabe.Caption := IntToStr(zahl1) + ` + ` + IntToStr(zahl2);
end;
1 : begin
ergebnis := zahl1 - zahl2;
PanelAufgabe.Caption := IntToStr(zahl1) + ` - ` + IntToStr(zahl2);
end;
2 : begin
ergebnis := zahl1 * zahl2;
PanelAufgabe.Caption := IntToStr(zahl1) + ` * ` + IntToStr(zahl2);
end;
end;
EditErgebnis.SetFocus;
end;

end.