Excel

procedure TForm5.BitBtn2Click(Sender: TObject);
var
 XLApp,Sheet,Colum:Variant; i:integer;
begin  XlApp:=CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Eaeoaioey';
 Colum:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'].Columns;
 Colum.Columns[1].ColumnWidth:=16;
 Colum.Columns[2].ColumnWidth:=9;
 Colum.Columns[3].ColumnWidth:=9;
 Colum.Columns[4].ColumnWidth:=9;
 Colum.Columns[5].ColumnWidth:=9;
 Colum.Columns[6].ColumnWidth:=9;
 Colum.Columns[7].ColumnWidth:=9;
 Colum.Columns[8].ColumnWidth:=9;
 
 Colum:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'].Rows;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Size:=12;
 Colum.Rows[8].Font.Bold:=true;
 Sheet:=XLApp.Workbooks[1].WorkSheets['Eaeoaioey'];
 
 Sheet.Cells[1,1]:='Ôàìèëèÿ';
 Sheet.Cells[2,1]:='Èìÿ';
 Sheet.Cells[3,1]:='Îò÷åñòâî';
 Sheet.Cells[4,1]:='¹ óäîñòîâåðåíèÿ';
 Sheet.Cells[5,1]:='Äàòà ðîæäåíèÿ';
 Sheet.Cells[6,1]:='Íàïðàâëåíèå';
 Sheet.Cells[7,1]:='Âèä ìåñòà';
 Sheet.Cells[8,1]:='Öåíà';
 
 Sheet.Cells[1,2]:=Form5.Edit1.Text+'';
 Sheet.Cells[2,2]:=Form5.Edit2.Text+'';
 Sheet.Cells[3,2]:=Form5.Edit3.Text+'';
 Sheet.Cells[4,2]:=Form5.Edit4.Text+'';
 Sheet.Cells[5,2]:=Form5.MaskEdit1.Text+'';
 Sheet.Cells[6,2]:=''+ComboBox1.Text+'';
 Sheet.Cells[7,2]:=''+ ComboBox2.Text+'';
 Sheet.Cells[8,2]:=Form5.Edit6.Text+'';
end;