DESAFIO TABELAS PARADOX

Alguém ja viu esse código pra agravar direto no HD

Gravando registro fisicamente em todas as tabelas

DbiUseIdleTime
Faz o mesmo que o DbiSaveChanges, mas em todas as tabelas

Adicione BDE e dbiProcs na cláusula uses

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.onIdle := UseIdle;
end;

procedure Tform1.UseIdle(Sender: TObject; var Done: Boolean);
begin
DbiUseIdleTime;
end;


mas quando colocao na aplicação, dá erro na linha

Application.onIdle := UseIdle;

diz que que undeclarate identifier:´UseIdle´;

o Que fazer, preciso deste código pra gravar as tableas PARADOX