Synapse. Отправка нескольких документов одним POST-запросом.

procedure TForm6.Button1Click(Sender: TObject);
begin
  with GoogleLogin1 do
    begin
      Email:=Edit1.Text;
      Password:=Edit2.Text;
      Service:=writely;//идентификатор сервиса гуглодоков
      AccountType:=atHOSTED_OR_GOOGLE;
      Login();
    end;
end;

procedure TForm6.GoogleLogin1Autorization(const LoginResult: TLoginResult;
  Result: TResultRec);
begin
  if LoginResult=lrOk then
    Edit3.Text:=Result.Auth
  else
   Edit3.Text:=Result.LoginStr;
Button2.Enabled:=LoginResult=lrOk;
Button3.Enabled:=LoginResult=lrOk;
end;

var
  Form6: TForm6;
  XMLStream: TMemoryStream;;
...
procedure TForm6.FormCreate(Sender: TObject);
begin
  XMLStream:=TMemoryStream.Create;
end;
 
function TForm6.GetXML(const DocTitle: string): string;
begin
  var XMLDoc: TNativeXML;
begin
  XMLStream.Clear;//очистили поток
  XMLDoc:=TNativeXML.Create;
  XMLDoc.LoadFromFile(ExtractFilePath(Application.ExeName)+'xml.txt');
  XMLDoc.Root.NodeByName('title').ValueAsString:=Edit5.Text;//замненили название документа
  XMLDoc.SaveToStream(XMLStream);//сохранили данные в поток
FreeAndNil(XMLDoc);
end;
 
procedure TForm6.FormDestroy(Sender: TObject);
begin
  FreeAndNil(XMLStream)
end;

procedure TForm6.Button3Click(Sender: TObject);
Const
  CR = #$0d;
  LF = #$0a;
  CRLF = CR + LF;
var HTTP: THTTPSend;
    S:AnsiString;
    FS: TFileStream;
begin
  //получили XML
  GetXML(Edit5.Text);
 
  HTTP:=THTTPSend.Create;
  //вставляем заголовки авторизации
  HTTP.Headers.Add('GData-Version: 3.0');
  HTTP.Headers.Add('Authorization: GoogleLogin auth='+Edit3.Text);
  //определяем тип данных
  HTTP.MimeType:='multipart/related; boundary=END_OF_PART';
  HTTP.Headers.Add('Slug: '+EncodeURLElement(ExtractFileName(Edit4.Text)));
  {составляем тело запроса}
  S:='--END_OF_PART'+CRLF;
  //MIME-тип первой части документа
  S:=S+'Content-Type: application/atom+xml'+CRLF+CRLF;
  HTTP.Document.Write(PAnsiChar(S)^, Length(S));//записали строку
  //пишем в Document содержимое XML
  XMLStream.Position:=0;
  HTTP.Document.CopyFrom(XMLStream,XMLStream.Size);
  S:=CRLF+CRLF+'--END_OF_PART'+CRLF;//первая часть документа закончена
 
  {вторая часть - документ *.doc}
  S:=S+'Content-Type: application/msword'+CRLF+CRLF;
  HTTP.Document.Write(PAnsiChar(S)^, Length(S));//записали строку
  {записываем doc-файл}
  FS:=TFileStream.Create(Edit4.Text,fmOpenRead);
  FS.Position:=0;
  HTTP.Document.CopyFrom(FS,FS.Size);
  FreeAndNil(FS);
  {завершаем тело запроса}
  s := CRLF + '--END_OF_PART--' + CRLF;
  HTTP.Document.Write(PAnsiChar(S)^, Length(S));//завершили тело документа
 
  //Отправляем запрос
  if HTTP.HTTPMethod('POST','http://docs.google.com/feeds/default/private/full') then
    ShowMessage(HTTP.ResultString);
end;