set term ^ ;

create procedure IBE_DEB_ERROR (
    IN_PARAM varchar(32))
returns (
    OUT_PARAM varchar(32))
as
begin
  OUT_PARAM = "'" || replace( :IN_PARAM, "'", "''" ) || "'";
  suspend;
end ^

set term ; ^

Error Message:
----------------------------------------
SQL Parse Error:

Parameter name expected

[00544BB7] FIB.FIBError (Line 436, "FIB.pas" + 1) + $2C
[0053CE16] FIBQuery.TFIBQuery.PreprocessSQL (Line 3493, "FIBQuery.pas" + 136) + $13
[0053E15B] FIBQuery.TFIBQuery.SQLChange (Line 3885, "FIBQuery.pas" + 6) + $12
[0041CEFD] Classes.TStringList.Changed (Line 3283, "Classes.pas" + 1) + $14
[00D5D259] DebugSP_New.TfrmDebugSP_new.ExecuteAssign (Line 1098, "DebugSP_New.pas" + 69) + $E
[00D5ECE7] DebugSP_New.TfrmDebugSP_new.ExecuteStatement (Line 1523, "DebugSP_New.pas" + 13) + $5