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.

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

{$R *.dfm}

procedure TForm1.OnCreate(Sender: TObject);
Begin
  randomize; //Randomize nur einmal im Programm aufrufen !!!
End;

procedure TForm1.Button1Click(Sender: TObject);
var i, k, zz: Integer;
    gesetzt : Boolean;
begin
  ListBox1.Items.Clear;
  for i := 1 to 49 do
    ListBox1.Items.Add('0'); //Warum hier erst IntToStr aufrufen?
                             //Geht doch auch direkt
  for k := 1 to 10000 do
  begin
    for i := 1 to 49 do
      lottozahlen[i] := false;
    for i := 1 to 6 do
    begin
      //Ist meiner Meinung nach sinnvoller mit nem Boolean
      gesetzt := false;
      repeat
        zz:= random(48)+1;
        if (not lottozahlen[zz]) then
        begin
          lottozahlen[zz] := true;
          //ListBox1.Items ist 0-basiert, dein Array 1-basiert, daher mußt
          //du den Index anpassen
          ListBox1.Items[zz-1]:= inttostr(strtoint(ListBox1.Items[zz-1])+1);
          gesetzt := true;
        end;
      until gesetzt
    end; // von (i=>6)
   end; // von (k=>10000)
end;

end.