(nC = columna a ajustar, si son todas, meter esto dentro de un bucle por columnas)
int nW, nr =0, nMax = 0;
while (nr < sg->RowCount) {
nW = sg->Canvas->TextWidth(sg->Cells[nC][nr]);
if (nW > nMax)
nMax = nW;
nr++; //por claridad, lo puedes quitar aqui y poner en [nr++] arriba.
}
sg->ColWidths[nC] = nMx;
//...