Ancho de columna con TFileXLS

[MarioG]

Hola colegas
A efectos de asignar el ancho de una columna, en la que por fila van textos de variado ancho determino el maximo de ellos mediante:

nAnchoMax:= Max( nAnchoMax, GetTextWidth( 0, arr[1], oFont0:hFont ) )

este proceso está dentro un array que se recorre mediante aEval().
No obstante el valor obtenido, evidentemente, no es el que utiliza TFileXLS, ya que al asignarse mediante el metodo ::ColumnWidth( n, nAnchoMax ) el ancho de la columna es muy superior al del texto mas ancho (obtenido con GetTextWidth() )
Alguien me puede decir como podría calcular el valor de nAnchoMax a enviar a ::ColumnWidth() ?

muchas gracias