Source position: lazgio2.pas line 1909
TGApplicationClass.before_emit : procedure(
application: PGApplication;
platform_data: PGVariant
);