1:

Columns("A:A").ColumnWidth = 49.14                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

var
  LCID: Longint;
  i, iPage, iRow, iCell: Integer;
  ovar: OleVariant;
begin
  Screen.Cursor:=crHourGlass;
  try
    Excel.Connect;
    lcid := LOCALE_USER_DEFAULT;
    Excel.Visible[lcid]:= false;//True;
    Workbook.ConnectTo (Excel.Workbooks.Open(Path,emptyParam,emptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
      EmptyParam,lcid));
    Worksheet.ConnectTo (Workbook.Worksheets[1] as _Worksheet);
    ovar:=13; // with as olevarient
    WOrksheet.Range['A','A'].Columns.ColumnWidth:= ovar;
    ...
    <blablabla>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var excel: variant
begin
    Excel := CreateOleObject('Excel.Application');
    excel.Application.SheetsInNewWorkBook := 1; //Die 1 is die Anzahl der Sheets
    Excel.Workbooks.Add;
    Excel.Sheets[1].name := sheetname;
    excel.range['A1:D1'].select;
    excel.selection.font.bold := true;
    excel.selection.font.size := 20;
    excel.columns[1].columnwidth := 21;