como não recebi nenhuma mensagem me explicando tive que fazer o famoso "fuçamento", passei o dia iventando códigos e mais codigos até que me caiu a ficha, o Word tem uma liguagem de programação parecida com o VB, para encurtar a história vou dizer o que resolvi fazer, gravei uma macro que fazia exatamente o que eu queria então resolvi testar no delphi através de um OLE o codigo mais ou menos parecido com o da macro(que estava = ao do VB). consegui então fazer muitas coisas até legais no Word.
O Código abaixo serve para colocar uma figura que esteja no mesmo diretório do programa e ainda fazer uma tabela com a auto formatação do word:

procedure TForm1.dxButton2Click(Sender: TObject);
var
i : integer;
MSWord : variant;
begin
MSWord:= CreateOleObject ('Word.Basic');
MSWord.Filenew;//inicia um novo
documento
MSWord.AppShow;//mostra o word
MSWord.appmaximize;//Maximiza a janela do Word
MSWord.insertpicture('.\format.jpg');//Insere uma figura
note que o ponto serve para dizer que está no mesmo diretório
do programa
MSWord.Font('Times');//muda a fonte usada
MSWord.CenterPara;//coloca o texto no centro
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.bold;//coloca negrito
MSWord.underline;//sublina
MSWord.insert(#13+'Genesis Informática');//note
que #13 serve para pular linha caso queira dar um tab é só colocar
o caracter corespondente no caso #9
MSWord.FontSize(12);//muda o tamanho da fonte
MSWord.underline(false);//retira o sublinhado
MSWord.tableinserttable(NumColumns:=1, NumRows:=1); //Insere
uma tabela com uma linha e uma coluna
MSWord.TableSelectTable; //seleciona a tabela inteira
MSWord.TableAutoFormat(Format:=20); //usa a auto formatacão
de tabelas do Word a vigésima para ser exato
MSWord.startOfRow;//coloca o cursor piscando no começo
da linha
MSWord.leftPara;//coloca o texto na esquerda
MSWord.insert('Wenderson Lisardo');// escreve
MSWord.nextcell;//vai para a Proxima Celula como não
existe ainda ele cria outra linha
MSWord.tableselectRow;// seleciona a linha atual
MSWord.tableSplitCells(NumColumns:=3, NumRows:=1);//divide
a célula em 3 colunas e 1 linha
MSWord.insert('primeira coluna');// escreve
MSWord.nextcell;//proxima célula
MSWord.insert('segunda coluna');// escreve
MSWord.nextcell;//proxima célula
MSWord.insert('terceira coluna');// escreve
end;

Não é preciso adicionar nenhum componete só uma biblioteca
a ComObj

Espero que minha primeira matéria tenha sido útil. Obrigado e qualquer dúvida envie um e-mail para wendersonlisardo@yahoo.com.br