procedure TForm1.CopyTextToWord;
var
Range : Variant;
i : integer;
begin
WordApp := CreateOleObject('Word.Application');
wordApp.Visible := True;
wordApp.Documents.Add;
Range := WordApp.Documents.item(1).Range;
Range.Text := Table.FieldByName....;
.........
end;