Никто не встречался с уже реализованной ф-цией, которая реализует сабж по след. алгоритму:
function ToOraFieldType(ParamType:TFieldType):integer;
 begin
    case ParamType of
      ftUnknown: ;
      ftString: Result := otString;
      ftSmallint: ;
      ftInteger: Result := otInteger ;
      ftWord: ;
      ftBoolean: ;
      ftFloat: ;
      ftCurrency: ;
      ftBCD: ;
      ftDate: ;
      ftTime:   - otDate;
      ftDateTime: ;
       ... т.д.
    end;
 end;

так половину же реализовал уже, в чем загвоздка?

переписал так, чтобы в этом не было никакой необходимости
просто достался в наследство неплохой код, который открывает запросы в потоках, но мне нужно такое же. но для Oracle
вот и переделал так, чтобы на входе уже были оракловые параметры. а не DBшные