pl 

CreateHandle (TGtkWSFontDialog)

pt 

SetCallbacks (TGtkWSFontDialog)