Source position: GIS_EarthBase.pas line 51
type TEarthProgressEvent = procedure(
Sender: TEarthBase;
MsgType: TGISProgressMessage;
const MsgText: string;
var Abort: Boolean
) of object;