[Lazarus] Problem with TSQLScript

[Paul]

Hello,

I have problem with TSQLScript (?)
Script looks like that

SET TERM ^ ;
CREATE PROCEDURE GET_USER_PRIVILEGES (
USER_ACCOUNT VARCHAR(10))
RETURNS (
     RESULT CHAR(1))
AS
BEGIN
      FOR
      SELECT DISTINCT RDB$PRIVILEGE
      FROM RDB$USER_PRIVILEGES
      WHERE (RDB$USER = :USER_ACCOUNT)
      INTO :RESULT
      DO
      BEGIN
           SUSPEND;
      END
END
^
SET TERM ; ^

and the error message looks like that
{...}PrepareStatement
-Dynamic SQL Error
-SQL Error Code = -104
Token unknown - line 11, column 11
-?

line 11 ->    INTO :RESULT
column 11-> :

FlameRobin does not have any problems with this piece of code

Any hints ?
Paul

I use Lazarus 1.0.10, Firebird 2.5 on Ubuntu 32bit
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20130718/9e688dee/attachment-0002.html>