[kulinar]

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

Код:

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 ели вам не сложно, а то я не до конца понимаю?