Dear List
Please help me understand where I am going wrong with creating the following procedure:

SET TERM ^ ;

CREATE PROCEDURE TestProc
( CatName CHAR(15) )
AS
BEGIN
select cast('Now' as time) as "TIME" from rdb$database;
END^

SET TERM ; ^

Engine Code : 335544569
Engine Message :
Dynamic SQL Error
SQL error code = -104
Token unknown - line 7, column 57
;

Firebird 2.5.1 on Windows (SuperClassic)
Many thanks