نحوه تعريف و استفاده از كرسر در دلفي

با سلام
من ميخوام از دو تا جدول مرتبط يك مجموعه ركورد را بگيرم و از تو اين مجموعه خاصي از ركورد ها را انتخاب كنم
مشكلم در استفاده از كرسر در دلفي هست
اگه لطف كنيد يك مثال از تعريف كرسر و يك كاربرد از انو در دلفي برام بفرستيد ممنون ميشم
من اين كرسر را نوشتم اما چند مشكل داشت:
1 نوع خروجي text است و اشكال ميگيرد كه پارامتر text قبول نميكند

کد:
declare c cursor local for select qtext,ta,from qtable inner join atable on (atable.qcode=qtable. qcode ) and (qtable.type=:t) and (qtable.degree=:d)open c fetch next from c into :q,:ta close c deallocat c

2من كرسري كه int را برميگردونه هم نوشتم كه البته در adoqry.sql.textكرسر را نوشتم كه اين هم خطا ميداد كه نميتونه يك set result را برگردونه
چه پيشنهادي داريد؟