random()

[Die Muhkuh]

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
ergebnis, tmp : integer;
begin
tmp := StrToInt(edtAnzahl.text);

if tmp = 0 then
  ergebnis := Addieren
else
  ergebnis := tmp + Addieren;

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

function TForm1.Addieren : integer;
begin
  Result := random(6)+1;
end;

Vermutlich willst du das.