Werte formatieren (listbox)

[pjuk]

hi

Code:

procedure Tzuordnen.btnzuoClick(Sender: TObject);
var
  Index: Integer;
begin
    Index := GetFirstSelection(DstList);
    MoveSelected(DstList, lbzugeordnet.Items);
    SetItem(DstList, Index);
    Index := GetFirstSelection(ListBox1);
    MoveSelected(ListBox1, lbzugeordnet.Items);
    SetItem(ListBox1, Index);
    DstList.Refresh;
    ListBox1.Refresh;
end;

bewege meine daten aus 2 listboxen in eine 3. via btnzuoclick. Mein Problem das nun auftritt ist nun aber , dass meine daten völlig unformatiert in meine listbox geschrieben werden.

also :

wert1 aus box1
wert2 aus box1
wert1 aus box2

will aber :

wert1 aus box1 + wert1 aus box2 <- sollen in einer zeile stehen
wert2 aus box1 + wert2 aus box2 <- sollen auch in einer zeile stehen


wie spreche ich die boxen an?

habs schon mit nem listview versucht, leider weis ich nicht wie ich diesen anspreche für die formatieren und die datenübertragung.

danke