Создания отчеты в Excel

procedure TfMWf.LVToExcel(ListView: TListView);
var
Sheet,objExcel : Variant;
Title : String;
x,y: Integer;
begin
if ListView.Items.Count=0 then abort;
Screen.Cursor := crHourGlass;
try
objExcel := CreateOleObject('Excel.Application');
objExcel.Caption := 'Список';
objExcel.Workbooks.Add;
objExcel.Workbooks[1].Sheets.Add;
objExcel.Workbooks[1].WorkSheets[1].Name := Title;
Sheet := objExcel.Workbooks[1].WorkSheets[Title];
for x := 0 to (ListView.Columns.Count -1) do
 Sheet.Cells[1, (x + 1)] := ListView.Columns.Items[x].Caption;
for y := 0 to (ListView.Items.Count -1) do
begin
Sheet.Cells[(y + 3),1] := ListView.Items.Item[y].Caption;
for x := 0 to (ListView.Columns.Count - 2) do
begin
Sheet.Cells[(y + 3), (x + 2)] := ListView.Items.Item[y].SubItems.Strings[x];
end;
end;
objExcel.Cells.select;
objExcel.Selection.Font.Name:='Arial';
objExcel.Selection.Font.Size:=9;
objExcel.selection.Columns.AutoFit;
except
begin
Screen.Cursor := crDefault;
MessageDlg('Excel transaction cancelled.',mtInformation, [mbOK],0);
exit;
end;
end;
objExcel.Visible := true;
Screen.Cursor := crDefault;
end;

Const
  xlContinuous = 1;
  xlLandscape = 2;
  xlEdgeLeft = 7;
  xlEdgeTop = 8;
  xlEdgeBottom = 9;
  xlEdgeRight = 10;
  xlCenter = -4108;
...
  RangeMask := 'A%d:' + LastColumn + '%d';
  WorkSheet.Range['A1'].Font.Bold := True;
  WorkSheet.Range['A1'].Font.Size := 14;
  WorkSheet.Range['A1'].HorizontalAlignment := xlCenter;
  WorkSheet.Range['A1'] := 'Журнал';
  WorkSheet.Range[Format(RangeMask,[2,2])].Merge;