random()

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var 
  ergebnis, tmp : integer;
begin
  if Trim(edtAnzahl.Text) = '' then
    tmp := 0
  else
    tmp := StrToInt(edtAnzahl.Text);

  ergebnis := tmp + Addieren;

  edtAnzahl.Text := IntToStr(ergebnis);
end;