Puedes hacerlo mediante automatización OLE. No he probado este código, pero como para que te des una idea, a grandes rasgos sería así:
uses
ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, WordDoc, WordTable: variant;
begin
// Crea la aplicación
WordApp := CreateOleObject('Word.Application');
// Crea un nuevo documento
WordDoc := WordApp.Documents.Add;
// Crea una tabla de 5 filas por 3 columnas en el documento
WordTable := WordDoc.Tables.Add(WordDoc.Range,5,3);
// Asigna los valores de las celdas fila por fila
WordTable.Cell(1,1).Range.Text = 'a';
WordTable.Cell(1,2).Range.Text = '1';
WordTable.Cell(1,3).Range.Text = 'i';
WordTable.Cell(2,1).Range.Text = 'b';
WordTable.Cell(2,2).Range.Text = '2';
WordTable.Cell(2,3).Range.Text = 'ii';
WordTable.Cell(3,1).Range.Text = 'c';
WordTable.Cell(3,2).Range.Text = '3';
WordTable.Cell(3,3).Range.Text = 'iii';
WordTable.Cell(4,1).Range.Text = 'd';
WordTable.Cell(4,2).Range.Text = '4';
WordTable.Cell(4,3).Range.Text = 'iv';
WordTable.Cell(5,1).Range.Text = 'e';
WordTable.Cell(5,2).Range.Text = '5';
WordTable.Cell(5,3).Range.Text = 'v';
// Guarda el documento en disco
WordDoc.SaveAs('prueba tabla.doc');
// Cierra la aplicación
WordApp.Quit;
end;
Espero que te sirva.
Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php
