Ancho de UNA columna de TStringGrid de acuerdo a un texto.

[TiammatMX]

Jóvenes delphineros:

Me encuentro con que estoy rellenando una columna de un TStringGrid con un texto de ésta forma:

Código Delphi [-]
.
.
.
 
         Open;
         while not Eof do
         begin
            Cells[0,iIndiceRen] := Trim(FieldByName('C93_DIETA_STR').AsString);
            RowCount := RowCount + 1;
            iIndiceRen := RowCount - 1;
            Next;
         end;
.
.
.

Lo cual está perfectamente correcto. Al mostrar el TStringGrid en mi forma (imagen adjunta) algunos textos de la primera columna aparecen "cortados" y otros "montados".

¿De qué manera podría darle a la columna extrema izquierda un tamaño suficiente para mostrar EL TEXTO MÁS LARGO por programación?

Por su atención y ayuda, de antemano, gracias.