Сохранить StringGrid в .xls

[Repy]

Как сохранить StringGrid в формате екселевского файла?

[mrCloud]

function SaveAsExcelFile(stringgrid: tstringgrid; filename: string): boolean;
 const
 xlwbatworksheet = -4167;
var
  row, col: integer;
  xlapp, sheet: olevariant;
begin
  result := false;
  xlapp := createoleobject('excel.application');
  try
  xlapp.visible := false;
  xlapp.workbooks.add(xlwbatworksheet);
  sheet := xlapp.workbooks[1].worksheets[1];
  sheet.name := 'Код 503';
  for col := 0 to stringgrid1.colcount - 1 do
   for row := 0 to stringgrid1.rowcount - 1 do
   sheet.cells[row + 1, col + 1] := stringgrid1.cells[col, row];
  try
  xlapp.workbooks[1].saveas(filename);
  result := true;
  except
// error ?
  end;
  finally
  if not varisempty(xlapp) then
   begin
    xlapp.displayalerts := false;
    xlapp.quit;
    xlapp := unassigned;
    sheet := unassigned;
   end;
 end; 
end;

Источник: гугл

[Repy]

Благодарю, но теперь другая проблема: размер ячеек таблицы остается стандартным. Нету ли способа как-нибудь задать размеры ячеек?