TWndProc = function (HWindow: HWnd; Message, WParam, LParam: Longint): Longint;

TntControls

This is type TntControls.TWndProc.