Hilfe beim Erstellen eines Würfelprogramms

[dillipp]

Moin, ich denke, so müsste das klappen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ButtonWuerfeln: TButton;
    procedure ButtonWuerfelnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  
implementation

{$R *.DFM}

procedure TForm1.ButtonWuerfelnClick(Sender: TObject);
var i, ergebnis:Integer;  //Variablen Deklaration
begin
  randomize;              //Initialisieren des Zufallsgenerators
  listbox1.clear;         //leeren der Box
  for i:=1 to 20 do       //er führt es 20 mal aus
    begin
      ergebnis:=random(6)+1;  //hier wird eine zufallszahl von 1-6 (0->6 +1) erstellt
      listbox1.items.add(inttostr(ergebnis));  //das ganze wird in die Lite geschrieben
      if ergebnis=6 then exit;  //wenn es eine 6 war, hört er hier auf.
    end;
end;

end.