Hallo,
das ganze sollte mit zwei Schleifen zu erschlagen sein:
Delphi-Quellcode:
for i:=0 to Memo1.lines.count - 1 do
for j:=0 to Memo1.lines.count - 1 do
if Memo1.lines.strings[i] = Memo1.lines.Strings[j] then
begin
if i <> j then
begin
end;
end;
Du mußt dann nur noch dafür sorgen, das keine doppelten Einträge
in die andere Form übertragen werden.
Grüße
Klaus