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;