Listbox mit StrinGrid vergleichen!?

[RX3]

Delphi-Quellcode:

begin
for i:=0 to ListBox1.items.count-1 do // für jedes element der listbox
 begin
  for x:=0 to StringGrid1.ColCount-1 do // für jede Spalte des grids
   begin
    for y:=0 to StringGrid1.RowCount-1 do // für jede Zeile
     begin
       if ListBox1.items[i] = StringGrid1.cells[y,x] then
        begin
.
.
.
          for y := global_col to StringGrid1.Col  do
          begin
           for x := 0 to StringGrid1.RowCount - 1 do
           begin
             vZeile := vZeile + StringGrid1.Cells[y,x] + vTrennzAus;
           end;
           memo1.Lines.Add(vZeile);
           vZeile := '';
          end;
        end;
      end;
    end;
  end;
end;

Jetz hab ich das hier, aber es wird nur die Spalte ins Memo kopiert, die aktuell ausgewählt ist!

Kann denn keiner helfen ???