Lottozahlen

[bonanza]

Hi,
ich will ein programm schrieben, dass 10.000 mal lottozahlen generiert. dann möchte ich wissen, wie oft jede zahl gezogen wurde.


Hier mein bisheriges Programm. Aber irgendwie spuckt der da komische zahlen bei der häufigkeit aus.
Auch wäre es super, wenn jemand weiß, wie ich auch auf das 1. Item der listbox zugreifen kann.
Wäre euch sehr dankbar, wenn jemand mal gucken könnte, wo da der fehler ist.

danke schonmal im voraus
bonanza

Code:

var
  Form1: TForm1;
  lottozahlen: Array[1..49] of Boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k, zz: integer;
begin
randomize;
ListBox1.Items.Clear;
for i := 1 to 49 do ListBox1.Items.Add(inttostr(0));

for k:= 1 to 10000 do begin
              for i := 1 to 49 do lottozahlen[i]:= false;
              for i := 1 to 6 do begin
                        j:=0;
                        repeat
                        zz:= random(48)+1;
                        IF (lottozahlen[zz]=false) then begin
                                            lottozahlen[zz]:= true;
                                            ListBox1.Items[zz]:= inttostr(strtoint(ListBox1.Items[zz])+1);
                                            j := 1;
                                            end;
                        until (j=1);

              end; // von (i=>6)

   end; // von (k=>10000)
end;

end.