Word в Делфи в чем ошибка? - Компьютерный форум OSzone.net

Как сделать так что было как на картинки?

Код:

procedure TClav.N10Click(Sender: TObject);

var 

i:integer;

k,b:OleVariant;

begin

WordApplication1.Visible:= true;

WordApplication1.Connect;

WordDocument1.Connect;

//====================================================================================

k:=23;

b:=0;

WordDocument1.Range(b).Text:='Отчет по подразделениям';

WordDocument1.Range(b).Select;

WordDocument1.Range.ParagraphFormat.LineSpacing:= 20;

WordDocument1.Range.Font.Size:=16;

WordDocument1.Range.ParagraphFormat.Alignment:=$00000001;

//====================================================================================

for i:=2 to ADOQuery1.RecordCount+1  do

 begin

  WordDocument1.Range(b).InsertBefore(ADOQuery1.FieldValues['podr']);

  WordDocument1.Range(b).Select;

  WordApplication1.Selection.Font.Size:=12;

  WordApplication1.Selection.ParagraphFormat.Alignment:=$00000000;

  WordApplication1.Selection.TypeParagraph;

  WordDocument1.Range(b).InsertAfter(ADOQuery1.FieldValues['sot_familiya']+' '+ADOQuery1.FieldValues['sot_imya']+' '+ADOQuery1.FieldValues['sot_otchestvo']);

  WordDocument1.Range(b).Select;

  WordApplication1.Selection.Font.Size:=12;

  WordApplication1.Selection.ParagraphFormat.Alignment:=$00000000;

  ADOQuery1.Next;

 end;

И можете объяснить свойство Range ели вам не сложно, а то я не до конца понимаю?