Gracias.
he resuelto mi problema, mi funcion ActivaRdd() queda igual, solo agregue en mi cabecera
REQUEST ADS
EXTERNAL AdsKeyNo, AdsKeyCount, AdsGetRelKeyPos, AdsSetRelKeyPos
EXTERNAL OrdKeyNo, OrdKeyCount, OrdKeyGoTo, OrdKeyRelPos
y listo.
Gracias a todos.