FIREBIRD PT

Usando o componente TADOStoredProc:
ADOStoredProc1.ProcedureName := ‘GetAnimalWeight’;
ADOStoredProc1.Parameters.Refresh;
ADOStoredProc1.Parameters.ParamByName(’@strName’).Value := ‘Boa’;
ADOStoredProc1.ExecProc;
ShowMessage(ADOStoredProc1.Parameters.ParamValues['@RETURN_VALUE']);
Usando o componente TADOCommand:
ADOCommand1.CommandType := cmdStoredProc;
ADOCommand1.CommandText := ‘CalcSum2′;
ADOCommand1.Parameters.Refresh;
ADOCommand1.Parameters.ParamByName(’@intValue1′).Value := 10;
ADOCommand1.Parameters.ParamByName(’@intValue2′).Value := 28;
ADOCommand1.Execute;
ShowMessage(ADOCommand1.Parameters.ParamValues['@RETURN_VALUE']);