Сохранить из Delphi в XL c нужным размером столбца

procedure TForm1.Button9Click(Sender: TObject);
 
begin
R:=StringGrid1.RowCount;
C:=StringGrid1.ColCount;
TabGrid:=VarArrayCreate([0,R-1,0,C-1],VarOleStr);
for x:=0 to r-1 do
for y:=0 to C-1 do TabGrid[x,y]:=StringGrid1.Cells[y,x];
IIndex:=1;
XLApp.Connect;
XLApp.WorkBooks.Add(xlWBatWorkSheet,0);
WorkBk:=XLApp.WorkBooks.Item[IIndex];
WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
with WorkSheet.Range['A1',Worksheet.Cells.Item[R,C]] do
begin
Formula:=TabGrid;
Borders[xlEdgeTop].LineStyle:=xlContinuous;
Borders[xlEdgeTop].Weight:=xlThin;
Borders[xlEdgeTop].ColorIndex:=xlAutomatic;
Borders[xlEdgeLeft].LineStyle:=xlContinuous;
Borders[xlEdgeLeft].Weight:=xlThin;
Borders[xlEdgeLeft].ColorIndex:=xlAutomatic;
Borders[xlEdgeRight].LineStyle:=xlContinuous;
Borders[xlEdgeRight].Weight:=xlThin;
Borders[xlEdgeRight].ColorIndex:=xlAutomatic;
Borders[xlEdgeBottom].LineStyle:=xlContinuous;
Borders[xlEdgeBottom].Weight:=xlThin;
Borders[xlEdgeBottom].ColorIndex:=xlAutomatic;
Borders[xlInsideVertical].LineStyle:=xlContinuous;
Borders[xlInsideVertical].Weight:=xlThin;
Borders[xlInsideVertical].ColorIndex:=xlAutomatic;
Borders[xlInsideHorizontal].LineStyle:=xlContinuous;
Borders[xlInsideHorizontal].Weight:=xlThin;
Borders[xlInsideHorizontal].ColorIndex:=xlAutomatic;
end;
for x:=1 to r do
begin
if x mod 2=0 then
worksheet.Range['a'+inttostr(x),'d'+inttostr(x)].Interior.ColorIndex:=0;
end;
if savedialog1.Execute
then
XLApp.Workbooks[1].SaveAs( savedialog1.FileName , emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0,emptyparam,
emptyparam,emptyparam,emptyparam,emptyparam,0);
XLApp.Quit;
XLApp.Disconnect;
TabGrid:=Unassigned;
end;