Listbox formatieren?

[pjuk]

Hallo!

Habe 2 Listboxen aus denen ich werte in einer dritte Listbox übertrage. Dies mache ich mit:

Delphi-Quellcode:

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

leider ist mein Text nach dem übertragen total unformatiert. Weis jmd wie ich die Box anspreche, sodass ich diese formatieren kann?!
Ziel ist es, mehrere Werte aus beiden Boxen zu makieren und dann so zuzuordnen.


z.B.

Name1 ( aus listbox1 ) + Abteilung ( aus Listbox2 )
Name2 ( aus Listbox1 ) + Abteilung ( aus Listbox2 )


Möglich wäre es ja auch mittels eines Multiselects mehrere Mitarbeiter direkt einer Abteilung zuzuordnen. Jedoch bringt mich meine funktion nicht weiter, in meiner Listbox ist alles unformatiert und durcheinander.

Hoffe auf Hilfe

[edit=MrSpock]Code Tags durch Delphi Tags ersetzt. Mfg, MrSpock[/edit]