[virmaker]

Код:

procedure TForm1.Button1Click(Sender: TObject);
const f1='1.txt';
  f2='2.txt';
  f3='3.txt';
var str1, str2, r: TStringList;
   i,n: integer;
   s: string;
begin
    str1:=TStringList.Create;
    str1.LoadFromFile(f1);
    str2:=TStringList.Create;
    str2.LoadFromFile(f2);
    r:=TStringlist.Create;
    i:=0;
    while i<str1.Count do begin
      n:=0;
      s:=str1[i];
      while n<str2.Count do begin
        if s=str2[n] then begin
          r.add(s);
          str1.delete(i);
          dec(i);
          str2.delete(n);
          break;
        end;
        inc(n);
      end;
      inc(i);
    end;
    str1.Free;
    str2.Free;
    r.SaveToFile(f3);
    r.Free;
end;

lmikle: Пользуемся тегами!