Delphi-Quellcode:
for b := 0 to ListBox1.Items.Count - 1 do
row2:=0;
begin
REPEAT
Das wird aber wohl nicht gemeint sein. Die For Schleife führt nur x male
row2 := 0;
aus.
Kannst Du nochmal den Code so posten, wie Du es Dir wirklich vorstellst? Wahrscheinlich (aber eben nicht sicher) ist nur die Zeile mit dem begin vertauscht.
Und in der Repeat Schleife immer wieder die Überschriften neu zu setzen ist auch nicht sonderlich zielführend.
Delphi-Quellcode:
for cols := 0 to StringGrid2.ColCount - 1 do
StringGrid2.Cols[cols].Clear;
Und wenn ich das richtig sehe, wird am Ende jeden Schleifendurchgangs der Repeat Schleife das Stringgrid2 komplett gelöscht.