schleifen problem

[pwcca]

hallo liebe Delphipraxiscommunity

Ich habe ein Problem mit meiner Schleife
Mit dieser Schleife moechte ich vom StringGrid Daten herausholen, diese sollen sich aber nicht in der ListBox widerholen
Ich hoffe ihr versteht mich

Delphi meldet sich immer mit der Meldung:

Listenindex ueberschreitet maximum

Ja ist ein Anfaenger problem, aber ich steh grad auf der Leitung
hoffe es kann mir jemand helfen

Delphi-Quellcode:

  for row := 0 to StringGrid1.RowCount - 1 do
    begin
      repeat
        if StringGrid1.Cells[0,row]=ListBox1.Items[b] then
        begin
          ListBox1.Items.Add(StringGrid1.Cells[0, row]);
          b:=ListBox1.Count-1;
        end
        else b:=b+1;
      until (b=ListBox1.Count-1);
    end;