Fórum SQL com Progress, ajuda em variavel #379792

Olá pessoal, eu peguei um exemplo de um arquivo de ajuda do delphi, mas ele é tão antigo que foi feito no delphi 3 e estou com problemas na variavel.


Declarei na Uses do Formulario BDE

Variaveis
CODEprivate
    FCBPROGRESSDesc: pCBPROGRESSDesc;
    FProgressCallback: TBDECallback;
    function GetDataCallback(CBInfo: Pointer): CBRType;


está dando erro nessa variavel QUOTEFProgressCallback: TBDECallback;falando que não está declarada, no exemplo falou que caso acontece isso colocar na uses do programa o BDE e após o

CODE{$R *.res}

begin
  Application.Initialize;
  DbiInit(nil);

ai já coloquei e mesmo assim continua dando erro......QUOTEUndeclared Identifier : TBDECallback;


abaixo o resto do codigo


CODEfunction TFAdmPes007.GetDataCallback(CBInfo: Pointer): CBRType;
begin
    Result := cbrCONTINUE;
    with pCBPROGRESSDesc(CBInfo)^ do
      begin
        if iPercentDone < 0 then
          begin
            Label1.Caption := szMsg;
            Label1.Refresh;
            JvGradientProgressBar1.StepIt; {Apenas para ficar rodando o gauge}
          end
          else
          begin
            JvGradientProgressBar1.Position := iPercentDone;
          end;
      end;
end;

procedure TFAdmPes007.FormCreate(Sender: TObject);
begin
    FCBPROGRESSDesc := AllocMem(SizeOf(CBPROGRESSDesc));
    FProgressCallback := TBDECallback.Create(Self, Query1.Handle,
    cbGENPROGRESS, FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc),
    GetDataCallback, True);
end;

procedure TFAdmPes007.FormDestroy(Sender: TObject);
begin
    FProgressCallback.Free;
    FreeMem(FCBPROGRESSDesc, SizeOf(CBPROGRESSDesc));
end;