Может кто-то решил эту проблему:
THISFORM.WIDTH=TXTWIDTH(ALLTRIM(m.tcCaption),THISFORM.FONTNAME,THISFORM.FONTSIZE,m.cFontStyle)*FONTMETRIC(6,THISFORM.FONTNAME,THISFORM.FONTSIZE,m.cFontStyle)
THISFORM.Caption = PADC(REPLICATE("d",50),THISFORM.WIDTH/FONTMETRIC(6,THISFORM.FONTNAME,THISFORM.FONTSIZE))
Ни как не хочет центрировать. При изменении размеров окна уползает в сторону.