mysql-MYSQL游标REPEAT循环后，无法得到字符串返回值。望指教，谢谢！

mysql返回值delphi存储过程循环

我有一个数据表zq

<code>+-------+--------+--------------+---------+---------+--------+---------+| zq_id | zq_dm  | zq_mc        | zqlx_id | fllx_id | jys_id | zq_cxhq |+-------+--------+--------------+---------+---------+--------+---------+|     1 | 000001 | 平安银行     |       4 |       9 |      1 |       1 ||     2 | 113001 | 中行转债     |       4 |       9 |      1 |       1 ||     3 | 113005 | 平安转债     |       4 |       9 |      1 |       1 ||     4 | 131800 | R-003        |       3 |       5 |      2 |       0 ||     5 | 131801 | R-007        |       3 |       7 |      2 |       0 ||     6 | 131802 | R-014        |       3 |       8 |      2 |       0 ||     7 | 131809 | R-004        |       3 |       6 |      2 |       0 ||     8 | 131810 | R-001        |       3 |       3 |      2 |       1 ||     9 | 131811 | R-002        |       3 |       4 |      2 |       0 ||    10 | 150124 | 建信50B      |       5 |      10 |      2 |       0 ||    11 | 510300 | 300ETF       |       2 |       2 |      1 |       0 ||    12 | 600893 | 航空动力     |       1 |       1 |      1 |       0 ||    13 | 601318 | 中国平安     |       1 |       1 |      1 |       1 ||    14 | 601872 | 招商轮船     |       1 |       1 |      1 |       1 |+-------+--------+--------------+---------+---------+--------+---------+</code>

还有一个数据表jys

<code>+--------+--------+-----------------------+| jys_id | jys_dm | jys_mc                |+--------+--------+-----------------------+|      1 | SH     | 上海证券交易所        ||      2 | SZ     | 深圳证券交易所        |+--------+--------+-----------------------+</code>

我想将表zq中字段zq_cxhq为1的记录的zq_dm字段和对应的jys_dm提取出来组成字符串，所期望的结果应该是得到字符串"SH000001,SH113001,SH113005,SZ131810,SH601318,SH601872,"。

我的方法是：

<code>CREATE DEFINER=`root`@`localhost` PROCEDURE `routine_Sshq`(  OUT jyszqdm VARCHAR(100))BEGIN  DECLARE zqdm VARCHAR(45);    DECLARE jysdm VARCHAR(45);  DECLARE jyszq VARCHAR(100);  DECLARE done TINYINT(1) DEFAULT 0;  DECLARE cur_zqhq  CURSOR FOR SELECT zq_dm, jys_dm    FROM zq    LEFT JOIN jys    ON jys.jys_id = zq.jys_id    WHERE zq_cxhq = 1;  DECLARE CONTINUE HANDLER FOR NOT FOUND SET done = 1;  OPEN cur_zqhq;  REPEAT    FETCH cur_zqhq INTO zqdm, jysdm;    IF done = 0 THEN      SET jyszq = CONCAT(jyszq, jysdm, zqdm, ',');    END IF;  UNTIL done = 1 END REPEAT;  SET jyszqdm  = jyszq;END</code>

在DELPHI XE2中，我将这个存储过程的返回值，赋值给Edit控件，但始终无法成功。
我将这个存储过程的最后一行改为: SET jyszqdm = 'abc'; 同样无法成功。
我怀疑是不是前面那个REPEAT循环没有结束？但又找不到原因。

本人是自学菜鸟，期望哪位前辈高手指教。万分感谢。