Google docs

[erickahr]

Sigo con el problema, he encontrado en al API la siguiente info:

Creating an empty document

Here is an example of creating a document by uploading metadata to the server with an HTTP POST request. This will create an empty document called new document on Google Documents.
POST /feeds/default/private/full HTTP/1.1Host: docs.google.comGData-Version: 3.0Content-Length: 287Content-Type: application/atom+xml<?xml version='1.0' encoding='UTF-8'?><entry xmlns="http://www.w3.org/2005/Atom"> <category scheme="http://schemas.google.com/g/2005#kind" term="http://schemas.google.com/docs/2007#document"/> <title>new document</title></entry>

he puesto este codigo en mi aplicacion pero me da un error de autenticacion, aunque el asunto del acceso esta resuelto ya que si puedo añadir informacion a una hoja previamente creada.

Código Delphi [-]
procedure TfrMain.btnCrearClick(Sender: TObject);
var
  res, StrData, FromAttr: String;
  postStream: TStream;
  resStream: TStringStream;
begin
  fromAttr:='http://docs.google.com';

 StrData:='+QuotedStr('1.0')+' encoding=' +QuotedStr('UTF-8')+ '?> '+
           ' '  +
             '+
                'term="http://schemas.google.com/docs/2007#document"/> ' +
             ' '  +
           '  ';

  try
    Altas.Request.CustomHeaders.Values ['Authorization'] := 'GoogleLogin auth=' + googleAuth.AuthString;
    Altas.Request.CustomHeaders.Values ['Content-type'] := 'application/atom+xml';
    Altas.Request.CustomHeaders.Values ['GData-Version'] := '2.0';

    Altas.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(Altas);
    postStream := TStringStream.Create (strData);
    showmessage(StrData);

    postStream.Position := 0;
    res := Altas.Post (fromAttr, postStream);
    showmessage(res);
  Except
    on e: Exception do
      Showmessage(e.ClassName+': '+e.Message);
  end;
end;

Vuelvo a poner esta parte porque en la parte de arriba no me lo respeta, no se porque, en edicion se ve completo pero ya guardado aparece incompleto.

StrData:='<?xml version='+QuotedStr('1.0')+' encoding=' +QuotedStr('UTF-8')+ '?> '+
'<entry xmlns="http://www.w3.org/2005/Atom"> ' +
'<category scheme="http://schemas.google.com/g/2005#kind" '+
'term="http://schemas.google.com/docs/2007#document"/> ' +
'<title>new document</title> ' +
'</entry> ';

Sigo esperando que alguien me pueda ayudar, Saludos y gracias de antemano.

[erickahr]

Perdon por la insistencia, pero voy a replantear mi pregunta ya que tal vez no me he explicado bien y debido a esto no he obtenido respuesta, reitero nuevamente Gracias por tomarse el tiempo de leer mi pregunta.

Ojala me pudieran ayudar, como puedo poner esta 'solicitud' en un IdHttp, de Delphi 2010, una vez mas gracias.

POST /feeds/default/private/full HTTP/1.1
Host: docs.google.com
GData-Version: 3.0
Content-Length: 287
Content-Type: application/atom+xml

<?xml version='1.0' encoding='UTF-8'?>
<entry xmlns="http://www.w3.org/2005/Atom">
  <category scheme="http://schemas.google.com/g/2005#kind"
      term="http://schemas.google.com/docs/2007#document"/>
  <title>new document</title>
</entry>