[firebase-br] Erro ao criar SP

[Nilo]

Estou tentando criar a SP abaixo e está com um erro que não consigo 
resolver.
Uso Delphi5, IBO4 e FB 1.5.
O codigo abaixo me retorna o erro:
"Tipo de coluna nao suportado 0."
No google não existe nenhuma referencia a este erro ou algo parecido com 
ele.
Tentei com e sem o ";" no final, sem o ".prepare", ."execsql" no lugar 
de ".open" e nada.
Essa SP é criada normalmente pelo IBExpert.

Obrigado
Nilo

try
      ibsql1.Close;
      ibsql1.SQL.Clear;
      ibsql1.sql.append ('create procedure SP_ATUTEMPO  ');
      ibsql1.sql.append ('  (Pempresa integer, ');
      ibsql1.sql.append ('   Pcodigo integer, ');
      ibsql1.sql.append ('   pdatafim timestamp) ');
      ibsql1.sql.append ('as ');
      ibsql1.sql.append ('declare variable pemp integer; ');
      ibsql1.sql.append ('declare variable pcod integer; ');
      ibsql1.sql.append ('declare variable pdataini timestamp; ');
      ibsql1.sql.append ('begin ');
      ibsql1.sql.append ('    select first 1 empresa,codigo,data from 
movimento ');
      ibsql1.sql.append ('        where empresa = :pempresa ');
      ibsql1.sql.append ('        and codigo = :pcodigo ');
      ibsql1.sql.append ('        and data < :pdatafim ');
      ibsql1.sql.append ('        order by empresa,codigo,data desc ');
      ibsql1.sql.append ('        into :pemp,:pcod,:pdataini; ');
      ibsql1.sql.append ('    BEGIN ');
      ibsql1.sql.append ('        update movimento ');
      ibsql1.sql.append ('        set tempo = 86400 * (:pdatafim - 
:pdataini) ');
      ibsql1.sql.append ('        where empresa = :pempresa ');
      ibsql1.sql.append ('        and codigo = :pcodigo ');
      ibsql1.sql.append ('        and data = :pdataini; ');
      ibsql1.sql.append ('    END ');
      ibsql1.sql.append ('end ');
      ibsql1.SQL.Append (';');
      ibsql1.Prepare;
      ibsql1.open;
except
end;