Werte formatieren (listbox)

[pjuk]

das hilft mir leider noch nicht weiter.

ich habs nun mal in meinen code eingebunden :

Code:

procedure Tzuordnen.btnzuoClick(Sender: TObject);
var  Index: Integer;
var  i: Integer;
begin
    Index := GetFirstSelection(DstList);
    MoveSelected(DstList, lbzugeordnet.Items);
    SetItem(DstList, Index);
    Index := GetFirstSelection(ListBox1);
    MoveSelected(ListBox1, lbzugeordnet.Items);
    SetItem(ListBox1, Index);
      for i := 0 to Listbox1.Items.Count - 1 do
      Listbox1.Items.Add(Listbox1.Items[i] + ' ' + DstList.Items[i]);

    DstList.Refresh;
    ListBox1.Refresh;
end;

und nun? wenn ichs so laufen lass passiert nix

dstlist ist box2
listbox1 ist box3 ;>