procedure TForm1.Button1Click(Sender: TObject);

var

Stream:TMemoryStream;

S,S2,SIn,SOut:String;

LIn:Integer;

 

begin

  memo1.Text:=IdHTTP1.Get('http://onlinelibrary.wiley.com/doi/10.1002/j.1939-4640.1991.tb00206.x/pdf');

  SIn:='<iframe id="pdfDocument" src="';

  SOut:='" width="';

  LIn:=pos(SIn,memo1.Text)+length(SIn);

 

  S:=copy(memo1.Text,LIn,pos(SOut,memo1.Text)-LIn);

 

  S2:=StringReplace(S,';','&',[rfReplaceAll]);

 

 

  try

    Stream:=TMemoryStream.Create;

    IdHTTP1.Get(S2,Stream);

    Stream.SaveToFile('c:.pdf');

    Stream.Free;

  except

  on e:Exception do

  Stream.Free;

end;

 

 

  //ShowMessage(S+'   '+S2);

end;