Ejemplos IBScript

[subzero]

Entendido pero como logro generar un procedimiento almacenado el cual debe devolver algún valor? por ejemplo

..........
with IBScript1 do
begin
    Script.Clear;
    Script.Add('SET TERM ^;');
    Script.Add('CREATE PROCEDURE PROCEDIMIENTO_PRUEBA');
    Script.Add('AS DECLARE VARIABLE CODANE VARCHAR(16);');
    Script.Add('DECLARE VARIABLE NOMBRE VARCHAR(100);');
    Script.Add('AS BEGIN');
    Script.Add('SELECT CODIGO_DANE, ESTAB_NOMBRE');
    Script.Add('FROM ESTABLECIMIENTOS');
    Script.Add('INNER JOIN NUCLEOS ON (ESTAB_NUC_NUMERO=NUC_NUMERO)');
    Script.Add('INNER JOIN SECRETARIAS ON (NUC_SEC_CODIGO=SEC_CODIGO)');
    Script.Add('INNER JOIN MUNICIPIOS ON (SEC_MUN_CODIGO=MUN_CODIGO)');
    Script.Add('WHERE (MUN_CODIGO = ''70001'')');
    Script.Add('FOR SELECT ESTAB_CODIGO_DANE, ESTAB_NOMBRE');
    Script.Add('FROM ESTABLECIMIENTOS');
    Script.Add('INNER JOIN NUCLEOS ON (ESTAB_NUC_NUMERO=NUC_NUMERO)');
    Script.Add('INNER JOIN SECRETARIAS ON (NUC_SEC_CODIGO=SEC_CODIGO)');
    Script.Add('INNER JOIN MUNICIPIOS ON (SEC_MUN_CODIGO=MUN_CODIGO)');
    Script.Add('WHERE (MUN_CODIGO = ''70001'')');
    Script.Add('INTO :CODANE, :NOMBRE DO');
    Script.Add('BEGIN');
    Script.Add('UPDATE TEMP_EVAL_INT_GRAF_ADMIN');
    Script.Add('SET ESTAB_NOMBRE = :NOMBRE');
    Script.Add('WHERE CODIGO_DANE =:CODANE;'); 
    Script.Add('SUSPEND;');
    Script.Add('END^');
    Script.Add('SET TERM ;^');
end;
IBScript1.ExecuteScript;
..........