ADOStoredProc+Parameter+Boolean+Input

if n3.Checked=true then
    begin
      try
       idcont:=DMsuddel.QMain.FieldValues['ID_ARBITRAG'];
      except
        on E:EVariantTypeCastError do
        begin
          ShowMessage('Нет данных для обнавления.'#10#10'Добавьте данные');
          Exit;
        end;
      end;

      valcont:=DMsuddel.QMain.FieldValues['CONTROL'];

      i:=MessageDlg('Вы уверенны?',mtConfirmation,[mbYes,mbNo],0);
      if i=6 then
        begin
          FMain.Enabled:=false;
            with DMsuddel.SPAddDir do
              begin
                try
                ProcedureName:='UPD_ARBCONT';
                Parameters.Add;
                Parameters.Add;

                Parameters[0].Name:='id_cont';
                Parameters[0].DataType:=ftInteger;
                Parameters[0].Direction:=pdInput;
                Parameters[0].Precision
                Parameters[0].Value:=idcont;

                Parameters[1].Name:='val_con';
                Parameters[1].DataType:=ftBoolean;
                Parameters[1].Direction:=pdInput;
                Parameters[1].Value:=valcont;
               
                Prepared:=True;
                ExecProc;
                Parameters[1].Destroy;
                Parameters[0].Destroy;
... и т. д.

 (id_cont in admin.arbitrag.id_arbitrag%type,
  val_con in boolean)
is
rec_upd admin.arbitrag%rowtype;
begin

select * into rec_upd from admin.arbitrag
where id_arbitrag=id_cont
for update nowait;

if (val_con = true) then
  begin
  rec_upd.control:='0';
  end;
else
  begin
  rec_upd.control:='-1';
  end;
end if;

create or replace package P_TEST is

  -- Author  : alt0
  -- Created : 13.07.2009 11:46:14
  -- Purpose : Demos
  
function REF_TEST return SYS_REFCURSOR;

end P_TEST;
/

create or replace package body P_TEST is

function REF_TEST return SYS_REFCURSOR is
  Result SYS_REFCURSOR;
begin
  open Result for
  select 'Preved, medved \o/' from dual;
  return(Result);
end REF_TEST;

end P_TEST;
/

 
Package created
 
Package body created

program Project1;

{$APPTYPE CONSOLE}

uses
  ADODb, ActiveX, SysUtils;

const
  CONSTR = 'Provider=OraOLEDB.Oracle;PLSQLRSet=1;' +
    'Persist Security Info=True;Data Source=%s;User ID=%s;Password=%s;';

begin
  CoInitialize(nil);
  with TADODataSet.Create( nil ) do
  try
    ConnectionString := Format( CONSTR, [ 'source', 'user', 'pws' ] );
    CommandType := cmdStoredProc;
    CommandText := 'P_TEST.REF_TEST';
    Open;
    WriteLn( 'RecordCount: ', Recordset.RecordCount );
    while not Eof do
    begin
      WriteLn( 'Say: ', Fields[ 0 ].AsString );
      Next;
    end;
    ReadLn;
  finally
    Free
  end;
end.

RecordCount: 1
Say: Preved, medved \o/

SQL> begin
  2    dbms_output.put_line('TRUE:  ' || SYS.diutil.bool_to_int( true ) );
  3    dbms_output.put_line('FALSE: ' || SYS.diutil.bool_to_int( false ) );
  4    dbms_output.put_line('NULL:  ' || SYS.diutil.bool_to_int( null ) );
  5  end;
  6  /
 
TRUE:  1
FALSE: 0
NULL:  
 
PL/SQL procedure successfully completed
 
SQL> 

 BoolToStr 
То получим:
True -> -1
False -> 0