Source position: controls.pp line 370
type TGetDockCaptionEvent = procedure(
Sender: TObject;
AControl: TControl;
var ACaption:
) of object;