Source position: fpsexport.pas line 51
type TsGetSheetNameEvent = procedure(
Sender: TObject;
ASheetIndex: Integer;
var ASheetName: string
) of object;