Variablenübergabe - ich verzweifle

[Klaus01]

Ich denke, dies:

Delphi-Quellcode:

procedure TForm5.SetListBox(const Value: TListBox);
var i:integer; 
begin
  for i := 0 to value.Count - 1 do 
    ListBox1.Items[i]:=value.Items[i];
 end;

kann man durch das:

Delphi-Quellcode:

procedure TForm5.SetListBox(const Value: TListBox);

begin
  Listbox1.items.assign(Value.items);
  
end;

ersetzen.

Grüße
Klaus