......
TFDPhysServiceProgressEvent = procedure (ASender: TFDPhysDriverService; const AMessage: String) of object;
......
property OnProgress: TFDPhysServiceProgressEvent read FOnProgress write FOnProgress;
......

TFDFBNBackup = class (TFDIBService)
..............

TFDIBService = class (TFDPhysDriverService)
  ..........
  published
    property DriverLink: TFDPhysIBBaseDriverLink read GetDriverLink write SetDriverLink;
    property Protocol: TIBProtocol read FProtocol write FProtocol default ipLocal;
    property Host: String read FHost write SetHost;
    property Port: Integer read FPort write FPort default 0;
    property InstanceName: String read FInstanceName write FInstanceName;
    property UserName: String read FUserName write FUserName;
    property Password: String read FPassword write FPassword;
    property SqlRoleName: String read FSqlRoleName write FSqlRoleName;
    property ConnectTimeout: LongWord read FConnectTimeout write FConnectTimeout default 0;
    property QueryTimeout: LongWord read FQueryTimeout write FQueryTimeout default 0;
    property OnProgress: TFDPhysServiceProgressEvent read FOnProgress write FOnProgress;
    // Interbase encryption
    property SEPassword: String read FSEPassword write FSEPassword;
  end;