random()

[Klaus01]

oder so:

Delphi-Quellcode:

procedure TForm1.btnWuerfelnClick(Sender: TObject);
var
  ergebnis,ErrorCode : integer;
begin
  val(edtAnzahl.text,ergebnis,ErrorCode);

if ErrorCode <> 0 then
  ergebnis := Addieren
else
  ergebnis := ergebnis + Addieren;

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

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

Grüße
Klaus