Qual o problema com está procedure ?

Caros colegas

Tenho pouco conhecimento em Firebird e estou tentando gerar uma procedure, mas.......


---------- STATEMENT ----------

CREATE PROCEDURE TESTA
AS
begin
/* Procedure Text */
SELECT * FROM TESTE;
end



---------- ERROR MESSAGE ----------

Invalid token.
Dynamic SQL Error.
SQL error code = -104.
Token unknown - line 5, char 22.
;.

Obrigado.