[Alegun]

Образец данных в ваших списках покажите пжлст, попробую даже пример сварганить

З.Ы. Нет времени ждать данных, вот пример как список от совпадений очистить, нужно два мемо, в первом обрабатываемый список, во втором что нужно из него исключить

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
sl, sl1: TStrings;
i,b : integer;
begin
sl:= TStringList.Create;
sl1:= TStringList.Create;
sl.Assign(memo1.Lines);
sl1.Assign(memo2.Lines);

for i:= sl.Count-1 downto 0 do
 for b:= 0 to sl1.Count-1 do
 if sl[i] = sl1[b] then sl.Delete(i);

memo1.Lines.Assign(sl);

sl.Free;
sl1.Free;
 end;