Programı Bekletmek?

Merhaba, ben program çalışırken mesela for next döngüsü içindeyken belirli bir süre bekletmek istiyorum. Fakat bunu if chrsaw() ile yapınca bir tuşa basınca sonraki döngüde if chrsaw etkisiz kalıyor ve program beklemeden çalışmaya başlıyor suspend felan da işime yaramıyor. Vfp de programı bekletmek için başka komutlar varmı?

*******************
for x=1 to 10
if chrsaw(2)
endif
?x
next
********************

Yukarıdaki örnekte program çalışırken bir kere tuşa yada fareye basılınca chrsaw() pasifleşiyor ve döngü hiç beklemeden çalışıyor.. Yani birkere tuşa basınca chrsaw iptal...