Ligação Lazarus e broffice

[pcsilva]

Estou tentando criar um arquivo writer(texto) pelo lazarus mas não estou conseguindo inserir texto. Alguém poderia postar um tutorial de como fazer para gerar um relatório BrOffice através do lazarus.

[pcsilva]

Ai galera! Consegui abrir o arquivo mas não to conseguindo inserir algumas informações. Estou tentando criar um contrato e inserir campos no texto, tipo nome do contratante e do contratado, endereço, dados pessoais...... Mas ta foda no delphi tudo funciona mas no Lazarus to quase desistindo.

Code: [Select]

   
begin
   if Assigned(InitProc) then
    TProcedure(InitProc);
  try
    Server := CreateOleObject(ServerName);
  except
    WriteLn('Unable to start OO.');
    Exit;
  end;
  Desktop := Server.CreateInstance('com.sun.star.frame.Desktop');
  LoadParams := VarArrayCreate([0, -1], varVariant);
  Document := Desktop.LoadComponentFromURL('private:factory/swriter','_blank', 0, LoadParams);
  TextCursor := Document.Text.CreateTextCursor;
  TextCursor.InsertDocumentFromURL('file:///C:/teste.odt',LoadParams);
end;