[firebird-support] Problem IBStoredProc

[Farshid Dehghan]

Hi
I've used Delphi IBStoredProc, But not run.
No error.
Please get help

//----------in firebird
SET TERM ^ ;
CREATE PROCEDURE SP(
  TLek VARCHAR(15) CHARACTER SET NONE COLLATE NONE)
RETURNS(
  PNAME VARCHAR(100) CHARACTER SET NONE COLLATE NONE)
AS
BEGIN
    Select Name FROM TBL1 Where (TLekName = :TLek) ORDER BY ID 
    Into :PName DO
SUSPEND;
END ^
SET TERM ^ ;

//----------in delphi
IBStoredProc1.StoredProcName := 'SP';
IBStoredProc1.ParamByName('TLek').AsString := 'mb';
IBStoredProc1.ExecProc;