procedure TfrmMain.GetSumField(const PBankN: string;
const PWhere: TStringList; const PFilter: TFilterStruct;
out PSumValueArr: array of Double);
var
  I: Integer;
  LDataSet: TOraQuery;
begin
  try
    LDataSet := TOraQuery.Create(nil);
    LDataSet.Session := DefSession;  --Это сессия, в которой залогинились к базе
    with LDataSet do
    begin
      SQL.Clear;
      SQL.Add('begin');
      SQL.Add('  SELECT COUNT(T.D_NO),');
      SQL.Add('         NVL(SUM(NVL(T.SUM_FULL, 0)), 0),');
      SQL.Add('         NVL(SUM(NVL(T.SUM_DEPO, 0)), 0),');
      SQL.Add('         NVL(SUM(NVL(T.SUM_BLOCK, 0)), 0),');
      SQL.Add('         NVL(SUM(NVL(T.SUM_NOT, 0)), 0),');
      SQL.Add('         NVL(SUM(NVL(T.SUM_PAY, 0)), 0)');
      SQL.Add('    INTO :PCOUNT,');
      SQL.Add('         :PSUMFULL,');
      SQL.Add('         :PSUMDEPO,');
      SQL.Add('         :PSUMBLOCK,');
      SQL.Add('         :PSUMNOT,');
      SQL.Add('         :PSUMPAY');
      SQL.Add('    FROM SUM_D T');
      SQL.Add('   WHERE T.BANK_N = :BANKN ');
      SQL.AddStrings(PWhere);
      SQL.Add(';');
      SQL.Add('end;');
      Params.CreateParam(ftString, 'BANKN', ptInput);
      ParamByName('BANKN').AsString := PBankN;
      Params.CreateParam(ftFloat, 'PCOUNT', ptOutput);
      Params.CreateParam(ftFloat, 'PSUMFULL', ptOutput);
      Params.CreateParam(ftFloat, 'PSUMDEPO', ptOutput);
      Params.CreateParam(ftFloat, 'PSUMBLOCK', ptOutput);
      Params.CreateParam(ftFloat, 'PSUMNOT', ptOutput);
      Params.CreateParam(ftFloat, 'PSUMPAY', ptOutput);
      if Length(PFilter.VarName) > 0 then
      begin
        for I := 0 to Length(PFilter.VarName) - 1 do
        begin
          Params.CreateParam(PFilter.VarType[I], PFilter.VarName[I], ptInput);
          ParamByName(PFilter.VarName[I]).Value := PFilter.VarData[I];
        end;
      end;
      Execute;
      PSumValueArr[0] := ParamByName('PCOUNT').AsFloat;
      PSumValueArr[1] := ParamByName('PSUMFULL').AsFloat;
      PSumValueArr[2] := ParamByName('PSUMDEPO').AsFloat;
      PSumValueArr[3] := ParamByName('PSUMBLOCK').AsFloat;
      PSumValueArr[4] := ParamByName('PSUMNOT').AsFloat;
      PSumValueArr[5] := ParamByName('PSUMPAY').AsFloat;
    end;
  finally
    FreeAndNil(LDataSet);
  end;
end;

Project MOP.exe raised exception class EInternalError with message ''.

Project MOP.exe raised exception class EOraError with message 'ORA-06502: PL/SQL: numeric or value error: character string buffer too small ORA-06512: at line 2'

Project MOP.exe raised exception class Exception with message 'Invalid Oracle Home: '.

      Prepare;
      ParamByName('BANKN').DataType := ftString;
      ParamByName('BANKN').ParamType := ptInput;
      ParamByName('BANKN').AsString := PBankN;
      ParamByName('PCOUNT').DataType := ftFloat;
      ParamByName('PSUMFULL').DataType := ftFloat;
      ParamByName('PSUMDEPO').DataType := ftFloat;
      ParamByName('PSUMBLOCK').DataType := ftFloat;
      ParamByName('PSUMNOT').DataType := ftFloat;
      ParamByName('PSUMPAY').DataType := ftFloat;
      ParamByName('PCOUNT').ParamType := ptOutput;
      ParamByName('PSUMFULL').ParamType := ptOutput;
      ParamByName('PSUMDEPO').ParamType := ptOutput;
      ParamByName('PSUMBLOCK').ParamType := ptOutput;
      ParamByName('PSUMNOT').ParamType := ptOutput;
      ParamByName('PSUMPAY').ParamType := ptOutput;
      if Length(PFilter.VarName) > 0 then
      begin
        for I := 0 to Length(PFilter.VarName) - 1 do
        begin
          ParamByName(PFilter.VarName[I]).DataType := PFilter.VarType[I];
          ParamByName(PFilter.VarName[I]).ParamType := ptInput;
          ParamByName(PFilter.VarName[I]).Value := PFilter.VarData[I];
        end;
      end;