Source position: controls.pp line 191
type TWndMethod = procedure(
var TheMessage: TLMessage
) of object;