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

[Neftali [Germán.Estévez]]

Ya se que no es muy sofisticado, pero yo, por norma, suelo añadir espacios (uno al final de cada línea) para evitar estos cosas.

[Casimiro Notevi]

Empezado por Neftali

Ya se que no es muy sofisticado, pero yo, por norma, suelo añadir espacios (uno al final de cada línea) para evitar estos cosas.

Yo también hago eso siempre. Son cosas que da la experiencia... y los años

[Fita]

Gracias por la respuesta... funciona

Saludos