Nehme mal an das es der Fehler "Listenindex überschreite Maximum ..." ist.
Delphi-Quellcode:
procedure Tzuordnen.btnzuoClick(Sender: TObject);
var
i: Integer;
begin
Listbox1.Clear;
for i := 0 to lbzugeordnet.Items.Count - 1 do
if i < lbzugeordnet.Items.Count
and i < DstList.Items.Count then
Listbox1.Items.Add(lbzugeordnet.Items[i] + ' ' + DstList.Items[i])
else if i < lbzugeordnet.Items.Count then
Listbox1.Items.Add(lbzugeordnet.Items[i])
else if i < DstList.Items.Count then
Listbox1.Items.Add(DstList.Items[i]);
end;
Du solltest dich vieleicht mal mit der Hilfe von Delphi auseinandersetzen da sind die Eigenschafften und Methoden von TListbox genau erklärt.
Ich denke von dem ganzen Copy&Paste lernst du nicht wirklich was