nochmal StringGrid, Listbox, Memo

[RX3]

sorry, aber ich muss das Teil nochmal ändern...

Der Code soll folgendes machen:
die ListboxEinträge mit den Zellen aus dem StringGrid vergleichen, bei Übereinstimmung sollen alle ZEILEN des StringGrids ins Memo geschrieben werden, allerdings NUR die Einträge aus der ausgewählten Spalte

hier ist der Quellcode aus dem ButtonKlick-Ereignis

Delphi-Quellcode:

procedure TArtikel_Form.Btn_ListKonvertierenClick(Sender: TObject);
var i:Integer;
begin
.
.
.

    for i := 0 to ListBox1.Items.Count - 1 do    //für jeden Listboxeintrag
    begin
      for x := 1 to StringGrid1.RowCount - 1 do   //für jede Spalte
      begin
        if ListBox1.Items[i] = StringGrid1.Cells[x,1] then
        begin
          vZeile := '';
          //y=0 : erste(leere Spalte)
          //y=1 : zweite(erste gefüllte Spalte)
          for y := 0 to StringGrid1.ColCount - 1 do
          begin
            for x := 1 to StringGrid1.Row -1 do
            begin
              vZeile := vZeile + StringGrid1.Cells[y,x] + vTrennzAus;
             memo1.Lines.Add('INVITEM' + vZeile);
           end;
          end;
        end;
      end;
    end;
    Listbox1.Clear;
  end;
end;

Bild Unbenannt1 zeigt die wie es momentan aussieht.
Bild Unbenannt2 zeigt wie es aussehen soll !