TMejorar tiempo de respuesta de consulta con filtros de datos en VFP

Tengo una función general, en la cual hago filtro directo a la tabla en uso, por medio de POPUS muestro la información a consultar en pantalla, en MS-Dos, el tiempo de respuesta de mostrado de información podría ser en algunos casos de, digamos 3 segundos, en VFP9, me tarda en ocasiones, hasta el doble de tiempo.

* ------------ GENERA POPUP PARA CONSULTAS MEDIANTE PARÁMETROS ------------- *
Func FCons(nR1, nC1, nR2, nC2, cC1, nTama)
Priv cTit, cCade, nInd, nFuen
nFuen = IIF(Type("nTama")#"N", 14, nTama)
cCade = cC1
Defi Popu wPopC From nR1,nC1 To nR2,nC2 Prom Fiel &cCade Scro Font 'Courier New', nFuen
cCmd = On('KEY','ESC')
cFin = On('KEY','END')
cTop = On('KEY','HOME')
On Key Labe Esc
On Key Labe ENTER Do pRegresa
On Key Labe LEFTARROW Do pNada
On Key Labe RIGHTARROW Do pNada
Acti Popu wPopC
On Sele Popu wPopC Do pRegresa &&
On Key Labe LEFTARROW
On Key Labe RIGHTARROW
On Key Labe ENTER
On Key Labe Esc &cCmd
On Key Labe End &cFin
On Key Labe Home &cTop
Retu

Esta es la función general que uso, creen que puede haber algo que se pueda hacer para aumentar el rendimiento, o existe alguna otra manera que me propongan para sustituir esta función?. De antemano gracias.