Create a Stored Procedure in Firebird from Delphi code : How to Create a Stored Procedure in Firebird from Delphi XE3 code i.e. want to add stored procedure given below through delphi code. I am using TSQLQuery ->ExecSQL() but it is giving error at line 9 column 10. 

    CREATE PROCEDURE GET_BRANCH_ID (
      EMPID Integer)
     returns (
      EMPBRANCHID Integer)
    AS
    declare variable EmpBrch Integer;
    Begin
     select EMP_BRANCH_ID from EMPLOYEE where EMPLOYEE_ID= :EMPID
       into :EmpBrch;
       EMPBRANCHID = :EmpBrch;
       SUSPEND;
    End


Delphi code I am using is:

    with SQLQueryExc do
    begin
      close;
      SQL.clear;
      SQL.Add(SPString.Text);
      ExecSQL();
    End

Any help will be appreciated. Thanks.