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