1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var
  d1, d2, d3: TStringlist;

  i: integer;
begin
   memo3.Text := '';

  d1 := TStringlist.create;
  d2 := TStringlist.create;
  d3 := TStringlist.create;
  d1.Text := memo1.Text;
  d2.text := memo2.Text;
  d3.text := memo3.text;


  for i := 0 to d2.count - 1 do
    if (d1.indexof(d2[i]) < 0) and (trim(d2[i]) <> '')
     and (d3.indexof(d2[i]) < 0)
      then d3.add(d2[i]);
  memo3.text := d3.text;
  d3.free;
  d2.free;
  d1.free;
 end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var    
  i: Integer;    
begin    
  Memo3.Clear;  
  for i := 0 to Memo2.Lines.Count -1 do    
    if (Trim(Memo2.Lines.Strings[i]) <> '') then
      if (Memo1.Lines.IndexOf(Memo2.Lines.Strings[i]) = -1) and     
         (Memo3.Lines.IndexOf(Memo2.Lines.Strings[i]) = -1) then  
        Memo3.Lines.Add(Memo2.Lines.Strings[i]);  
end;