DELPHI / Merge Strings

[optimusprime]

Kod:
MergeStrings(ListBox1.Items, ListBox2.Items);
}

procedure MergeStrings(Dest, Source: TStrings);
var i : integer;
begin
for i := 0 to -1 + Source.Count do
if Dest.IndexOf(Source[i]) = -1 then
Dest.Add(Source[i]);
end;