Parsing Error

[Fita]

Hola a todos...
Estoy creando este Procedure desde código:

Código Delphi [-]
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('CREATE PROCEDURE ACTUAL_DEUDA_FAM (COD_FAM CHAR(6))');
Query1.SQL.Add('AS');
Query1.SQL.Add('declare variable nTotal numeric (15, 2);');
Query1.SQL.Add('BEGIN');
// Codigo del procedure
Query1.SQL.Add('END');
Query1.ExecQuery;

El problema es que cuando se crea el procedure en la BD la línea AS queda así:
ASdeclare variable nTotal numeric (15,2);

en lugar de:
AS
declare variable

y al ejecutar el procedure da error.
Cómo se puede solucionar?

Gracias por adelantado

Firebird 1.5 Delphi 2007