ZEOSDB STORED PROC

Mohon izinnx pak Budi, posting stored procedure dengan zeos?
pak Budi : silahkan aja....<tanya' jawab sendiri>
<mohon ma'af sebelumnx...>

buat stored procedure di mysqlnx:

DELIMITER $$
USE `pos`$$
DROP PROCEDURE IF EXISTS `pesan`$$
CREATE DEFINER=`pos`@`%` PROCEDURE `pesan`(OUT msg VARCHAR(25))
BEGIN
    SELECT "TEST" INTO msg;
    END$$
DELIMITER ;


panggil di zeos dengan zquery:

procedure TForm1.btn1Click(Sender: TObject);
begin

   with Qquery do
    begin
      Close;
      SQL.Clear;
      SQL.Text:='call pesan(@msg);';
      ExecSQL;
      SQL.Text:='select @msg;';
      Open;
      etext.Text:=Qquery.Fields[0].AsString;
    end;
end;