[Bars1992]

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1   do
 begin
  if memo2.Lines.IndexOf(memo1.Lines[i])=-1 then 
     memo3.Lines.Add(memo1.Lines[i]);
 end;
end;