Firebird: DDL-Skript (CREATE PROCEDURE) über Delphi, wie?

[alzaimar]

Hi,

Ich muss via Delphi eine Stored Procedure ändern. Ich verwende IB und SQLExpress-Komponenten.
Das Skript sieht so aus:

SQL-Code:

SET TERM ^ ;

CREATE OR ALTER PROCEDURE GETID (Name varchar(20))
returns (id integer)
as
begin
  select deID from Descriptions where deName :Name into :ID ;
  if (id is null) then  begin
    id = GEN_ID(GEN_Descriptions,1);
    insert into Descriptions values(:id, :Name ,CURRENT_TIMESTAMP);
  end
  suspend;
end^

SET TERM ; ^

Das Skript will ich so ausführen:
SQLConnection.ExecuteDirect(sScriptCode); Klappt nicht, es erscheint der Fehler:

Zitat:

Token unknown - line 1, column 5
TERM.

Mit einem TSQLCommand geht's auch nicht. Was muss ich ändern, damit das geht?