oracle pl/sql(100分)

oracle procedure begin
open aa_proc
loop
exit when aa_proc%NOTFOUND;
fetch aa_proc into aa_out;
endloop;
end;
假设AA中有多个记录。
在DELPHI 中 怎样读取每一条记录字段AA值，输出到界面
如：edit1.text:=aa_proc.parambyname('aa_out').asstring;
(aa_out out string)
cursor aa_proc is select aa from aa;

重复问题，只给20分。太穷，没办法。。8（

有两种方法：
1、根本不用存储过程：用一个TTABLE控件或TQUERY控件，用DELPHI中的语法：
with table1do
begin
First;
while not EOFdo
begin
Memo1.Add(FieldByName('AA').AsString);
Skip;
end;
end;

2、在存储过程中把所有符合条件的字段AA的值复合成一个字段返回，
然后在DELPHI中分解显示：比如在你的程序段中设一变量，把每次取
得的值按一定格式赋于它（用“||”运算符），然后把该变量值赋于
OUT类型的参数即可。

接受答案了.