pl 

CreateHandle (TGtkWSArrow)

pt 

SetCallbacks (TGtkWSArrow)

pl 

SetType (TGtkWSArrow)