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