var t1, t2: TOracleQuery;
begin
  t1 := TOracleQuery.Create(self);
  t2 := TOracleQuery.Create(self);
  t1.Session := OracleSession1;
  t2.Session := OracleSession1;
  t1.SQL.Add('DECLARE   i   sys_refcursor;BEGIN   :i :='
      +'rs_value.pkg_search.search_cadnum (v_soato             => 1, '
      +'                                   v_blocknum          => 2, '
        +'                                 v_parcelnumber      => 3,'
          +'                               v_date              => TO_DATE'
            +'                                                       (''01.01.2017'', '
              +'                                                      ''dd.mm.yyyy''  ),'
                  +'                       v_isnb              => 1);END;');
  t1.DeclareVariable('i', otCursor);
  t1.SetComplexVariable('i', t2);
 
  t1.Execute;
 
  t2.Execute;
  while not t2.Eof do
  begin
 
          MessageDlg('Fetched: '+t2.FieldAsString('cost'), mtInformation, [mbOk], 0);
          next;
 end;