> Alguem sabe como fazer o GRID ajustar o tamanho das colunas de acordo com o tamanho dos campos independentemente fonte e seu tamanho ?

Esta query talvez possa ser-lhe útil:

WITH THISFORM.Grid1.Column1
  m.lcFontName = .FontName
  m.lnFontSize = .FontSize
  m.lcFontStyle = IIF(.FontBold,"B","") + IIF(.FontItalic,"I","")
  IF EMPTY(m.lcFontStyle)
    m.lcFontStyle = "N"
  ENDIF
  m.lnAverageWidth = FONTMETRIC(6,m.lcFontName,m.lnFontSize,m.lcFontStyle)
ENDWITH

SELECT MAX(TXTWIDTH(ALLTRIM(Tabela.Campo),m.lcFontName,m.lnFontSize,m.lcFontStyle)*m.lnAverageWidth) ;
FROM Tabela

É devolvida a dimensão máxima, em pixels, do campo.