Magische 21

[Helmi]

Auch auf die Gefahr hin, der böse zu sein..
Aber ich glaube es hilft ihm mehr, einfach mal zu zeigen, wie der Code umgeschrieben ausschaut
(also Integer, statt real)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  wAugenzahl: Integer;
  wSumme    : Integer;
  wVorher   : Integer;

begin
  wAugenzahl := random(6) + 1;
  wVorher    := StrToInt(Edit1.Text);
  wSumme     := wVorher + wAugenzahl;

  ESumme.Text := IntToStr(wSumme);
  Edit1.Text := IntToStr(wAugenzahl);
end;

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

SirRufo´s Ausführung ist natürlich die Profi-Ausführung (wenn man das so sagen darf)

[Edit]
Delphi7 kennt schon "TryStrToInt"
Dann würde auch folgende Fehlerbehandlung gehen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  wAugenzahl: Integer;
  wSumme    : Integer;
  wVorher   : Integer;

begin
  If not TryStrtoInt(Edit1.Text, wVorher) then
    begin
      ShowMessage('Edit1 beinhaltet keine Zahl!');
      exit;
    end;

  wAugenzahl := random(6) + 1;
  wSumme     := wVorher + wAugenzahl;

  ESumme.Text := IntToStr(wSumme);
  Edit1.Text := IntToStr(wAugenzahl);
end;