Meinst du dann einfach das?
(Hier müssen also global oder zumindest übergeordnet deklariert werden)
Delphi-Quellcode:
procedure ListboxToStringlist(X:TListbox;Y:TStringlist);
var i : integer;
begin
Y.Clear;
for i := 0 to X.Items.Count-1 do
Y.Add(X.items[i]);
end;
//------------------------------
procedure StringlistToListbox(X:TStringlist;Y:TListbox);
var i : integer;
begin
Y.Clear;
for i := 0 to X.Count-1 do
Y.Items.Add(X[i]);
end;