Не возвращается результат функции при использовании типа параметра ptResult

[superpyct]

Трехзвенное приложение, используется MIDAS.
БД Oracle 9.2.0.7, ODAC 6.80

На сервере БД вызывается функция:

CREATE OR REPLACE FUNCTION get_test_result (param IN NUMBER)
    RETURN VARCHAR2
IS
    l_ret_val   VARCHAR2 (100);
BEGIN
    l_ret_val := 'Входной параметр - ' || TO_CHAR (param);
    RETURN l_ret_val;
END get_test_result;
/

На сервере приложений:

TOraSession (OS) -> TOraStoredProc (OSP) -> TDataSetProvider (DSP)

OSP.StoredProcName := GET_TEST_RESULT;

На клиенте:

TSocketConnection (SC) -> TClientDataSet (CDS)

Пример вызова функции на клиенте:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with CDS do
   begin
    RemoteServer := SC;
    ProviderName := 'DSP';
    Params.Clear;
    Params.CreateParam(ftString,'RESULT',ptOutput);
    Params.CreateParam(ftFloat,'PARAM',ptInput).AsInteger := 123;
    Execute;
    ShowMessage(Params.ParamByName('RESULT').AsString);
   end;
end;

После перехода с ODAC-5.10 на ODAC-6.7 появилась проблема:
1) Если при создании параметра RESULT указать тип ptOutput то при вызове возникнет ошибка 'Ошибочное число или типы аргументов ...' т.к. при обращении к серверу формируется строка

   begin
    GET_TEST_RESULT(:RESULT, :PARAM);
   end;

2) Если при создании параметра RESULT указать тип ptResult выполняется нормально, формируется правильная строка при обращении к серверу

   begin
     :RESULT := GET_TEST_RESULT(:PARAM);
   end;

Но после выполнения при обращении к параметру RESULT
как написано выше

 ShowMessage(Params.ParamByName('RESULT').AsString);

значение пусто.

Я нашел не очень элегантный вариант обхода:
на сервере приложений вызывается процедура

procedure TServer2007.PurpStoreProc(const STName: WideString);
 var s: string;
begin
  FPurpStoreProc.StoredProcName :='';
  FPurpStoreProc.StoredProcName := STName;
  FPurpStoreProc.PrepareSQL;
  s := FPurpStoreProc.SQL.Text;
  FPurpStoreProc.SQL.Text := s;
end;

Код вызова процедуры на клиенте:

 SC.AppServer.PurpStoreProc(GET_TEST_RESULT);

После чего код обработчика приобретает вид:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with CDS do
   begin
    RemoteServer := SC;
    ProviderName := 'DSP';
    Params.Clear;
    SC.AppServer.PurpStoreProc(GET_TEST_RESULT);
    Params.CreateParam(ftString,'RESULT',ptOutput);
    Params.CreateParam(ftFloat,'PARAM',ptInput).AsInteger := 123;
    Execute;
    ShowMessage(Params.ParamByName('RESULT').AsString);
   end;
end;

Подскажите пожалуйста, существует ли более элегантное решение проблемы?

[Stilet]

Задача вернуть из функции результ?
Попробуй использовать запрос

Select * from get_test_result(тут типа параметр) from dual

[superpyct]

SELECT get_test_result(здесь значение) from dual
как еще один способ...

Больше интересует вопрос, почему при использовании ptResult сервер приложений не передает клиенту значение, полученное от функции БД.