Ancho de celdas al exportar a excel

[Pascual Montes]

Hola colegas, estoy exportando el contenido de un dbgrid obvio que esta
legado a un query, el detalle es que si exporta todas las columnas, pero
toma por default una longuitud fija a las celdas, Agradezco mucho si me
ilustran en como cambiar el tamaño o longuitud de las celdas en excel.


este codigo lo tome de aqui (clubdelphi.com) y lo adapte a mi codigo


with data.q1, data.Q1.SQL do
begin
Close;
Open;
if IsEmpty then
begin
MessageDlg('No existen datos que reportar!', mtWarning,[mbOk], 0);
Exit;
end;
TRY
excel := CreateOleObject('Excel.Application');
EXCEPT
ShowMessage('Excel no se pudo iniciar.');
exit;
END;
excel.Visible := true;
First;
fila := 1;
excel.Workbooks.Add;
//Poner los títulos
for columna := 0 to DbGrid1.Columns.Count-1 do
excel.Cells[fila,columna + 1].Value := DbGrid1.Columns[columna].Title.Caption;
fila:=3;
//Desengachar controles para agilizar
DisableControls;
TRY
while not(eof) do
begin
for columna := 0 to DbGrid1.Columns.Count-1 do

excel.Cells[fila,columna + 1].Value := FieldByName(DbGrid1.Columns
[columna].FieldName).asString;

Next;
inc(fila);
end;
EXCEPT
ShowMessage('Atención, se produjo un error en la transmisión.');
END;
EnableControls;
end;
muchas gracias por el tiempo , bye