Listbox Item überschreiben

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
var
  i: Integer;
begin
       for i := 0 to ListBox1.Items.Count -1 do
       begin
            if ListBox1.Selected[i] then
            Memo1.Lines[i] := ListBox2.Items[i];
            end;
       end;