Source position: fpsactions.pas line 468
type TsCellHyperlinkEvent = procedure(
Sender: TObject;
ACaption: string;
var AHyperlink: TsHyperlink
) of object;