Thanks for the answer
But I had forgotten the "For" the Mail wrote.
Add This word does not solve the problem

--- In firebird-support@yahoogroups.com, "Ismael L. Donis Garcia" <ismael@...> wrote:
>
> add FOR to SELECT
>
>
> SET TERM ^ ;
> CREATE PROCEDURE SP(
> TLek VARCHAR(15) CHARACTER SET NONE COLLATE NONE)
> RETURNS(
> PNAME VARCHAR(100) CHARACTER SET NONE COLLATE NONE)
> AS
> BEGIN
> for Select Name FROM TBL1 Where (TLekName = :TLek) ORDER BY ID
> Into :PName DO
> SUSPEND;
> END ^
> SET TERM ^ ;
>
>
> =========
> || ISMAEL ||
> =========
> ----- Original Message -----
> From: Farshid Dehghan
> To: firebird-support@yahoogroups.com
> Sent: Thursday, August 23, 2012 1:16 PM
> Subject: [firebird-support] Problem IBStoredProc
>
>
>
> 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;
>
>
>
>
>
> [Non-text portions of this message have been removed]
>