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