procedure TprojectCForm.RequestAdwordsDone(Sender: TObject; RqType:
THttpRequest; ErrCode: Word);
var
Data: TStringStream;
HTML: String;
begin
Data := TStringStream.Create;
TSSLHTTPCli(Sender).RcvdStream.Position := 0;
Data.CopyFrom(TSSLHTTPCli(Sender).RcvdStream,
TSSLHTTPCli(Sender).RcvdStream.Size);
HTML := Data.DataString;
end;