[жекаизжека]

Нужна ваша помощь , ну как впрочем и всегда!
вот нашел пример по создание таблиц в Word`e

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s:WideString;
    separat:String;   // используемый сепаратор как разделитель в тексте по столбцам
    d, separatOV, Column:OleVariant;
begin
// инициализируем нужные переменные
D:=wdCollapseEnd;
Separat:='@'; // нинициализируем сепаратор, допустим символ '@'
separatOV:=separat;
Column:=4;         // инициализируем количество столбцов
s:='';    // обнуляем текстовую переменную
// запускаем ворд
WordApplication1.AutoQuit:=true;
WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.AutoConnect:=true;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
// теперь записываем в переменную текст
for i:=1 to 6 do
   begin
   // для примера обычный текст, но можно и из БД и других таблиц
   s:=s+'Familia'+separat+'Name'+separat+'Adress'+#13;

   end;
// вставляем текст
WordApplication1.Selection.InsertAfter(s);

// преобразуем в таблицу
WordApplication1.Selection.ConvertToTableOld(separatOV,EmptyParam,Column,EmptyParam,EmptyParam,
                                             EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                             EmptyParam,EmptyParam,EmptyParam,EmptyParam);
// снимаем выделение
WordApplication1.Selection.Collapse(D);
// делаем видимым документ
WordApplication1.Visible:=true;

end;

могли бы вы мне помочь что бы получилось как на рисунке(прикреплен ниже), значения беруться из Edit`ов с формы, заранее благодарю

[жекаизжека]

с заполнением разобрался как мне сделать выравнивание таблицы по тексту в таблице?