[Alegun]

Проще второй циклоблок заменить на

Код:

 for i := sl2.Count-1 downto 0 do
  begin
   c:= 0;
   for b := 0 to sl1.Count-1 do
    if sl2[i] = sl1[b] then inc(c);
   if c = 1 then 
    begin
     sl3.Add(sl2[i]);
     sl2.Delete(i);
    end;
  end;