Как рассчитать площадь пересечения двух площадных объектов

Не совсем все понял.

Первое не понятно,
сделали так:
// res := ovlObj.SetObjectCross(0, 0.001, 0, ovl_METHOD_SQUARE, ovl_ANYOBJECT);
res := ovlObj.SetObjectCross(-1, 0.001, 0, ovl_METHOD_SQUARE, ovl_ANYOBJECT); // Результат тот же, обрабатываемый объект считает, что он просто внутри объекта шаблона, а не пересекает его

Второе не понятно,
рассмотрели это:
res := ovlObj.CreateOVL(1, 0.001, 0, 0);
// третий параметр 0, это означает, что рассматривать в качестве контра шаблона, основной контур, или это не  правильно?

Третье не понятно,
не понятно то, что Вы пишите "...а другой объект уже указывать с подобъектами..."
другой объект, это же обрабатываемый объект. Он без подобъектов изначально. При чем здесь подобъекты?

//==========================================================­===================
// Найти объекты пересечений
//==========================================================­===================
procedure TfrmOvl.btnFindCrossObjClick(Sender: TObject);
var
 res : integer;
 ll, tt : integer;
 SquareObject : double;
begin
 ll := frmOvl.Left + 10;
 tt := frmOvl.Top + btnFindCrossObj.Top + 120;

 temp.Style := OS_NOVIEW;
 objIn.Style := OS_NOVIEW;

 if (edTemplet.Text = EmptyStr) or (edObjIn.Text = EmptyStr)
   then begin
     ShowMessagePos('Выберите на карте шаблон и обрабатываемый объект?', ll, tt);
     exit;
   end;

 frmOvl.MapFind1.Active := false;
 frmOvl.MapFind1.FindPoint := false;
 frmOvl.MapFind1.MapSelect.Clear;
 frmOvl.MapFind1.MapObj.Style := OS_SELECT;
 frmOvl.MapFind1.MapSelect.Excode[-1,OL_SQUARE] := false;
 frmOvl.MapFind1.MapSelect.Excode[10000165,OL_SQUARE] := true;
 frmOvl.MapFind1.Active := true;
 frmOvl.MapFind1.First;

 frmOvl.MapFind1.Center;

 ShowMessage ('найден объект шаблон');

 frmOvl.MapFind2.Active := false;
 frmOvl.MapFind2.FindPoint := false;
 frmOvl.MapFind2.MapSelect.Clear;
 frmOvl.MapFind2.MapObj.Style := OS_SELECT;
 frmOvl.MapFind2.MapSelect.Excode[-1,OL_SQUARE] := false;
 frmOvl.MapFind2.MapSelect.Excode[10000044,OL_SQUARE] := true;
 frmOvl.MapFind2.Active := true;
 frmOvl.MapFind2.First;

 frmOvl.MapFind1.Center;

 ShowMessage ('найден обрабатываемый объект');

 try

     res := ovlObj.CreateOVL(1, 0.001, 0, 0);

     if res = 0
       then begin
         ShowMessagePos('Ошибка создания объекта оверлейных операций!', ll, tt);
         exit;
       end;
                 res := ovlObj.SetObjectCross(-1, 0.001, 0, ovl_METHOD_SQUARE, ovl_ANYOBJECT);

     case res of
       1 : begin
            if mapGetExclusiveSubject(temp.ObjHandle, 0) = 0 // шаблон не замкнут
              then
               ShowMessagePos('Все контура объекта совпадают с шаблоном (лежат на шаблоне)!', ll, tt);
            if mapGetExclusiveSubject(temp.ObjHandle, 0) <> 0 // шаблон замкнут
              then
               ShowMessagePos('Все контура объекта внутри шаблона, либо совпадают!', ll, tt);
           end;
       2 : ShowMessagePos('Все контура объекта вне шаблона!', ll, tt);
       3 : ShowMessagePos('Один или несколько контуров объекта пересекаются с шаблоном!', ll, tt);
       4 : ShowMessagePos('Контур шаблона внутри контура объекта!', ll, tt);
       0 : begin
             ShowMessagePos('Ошибка установки обрабатываемого объекта и метода обработки!', ll, tt);
             exit;
           end;
       end;
     if not (res in [3,4])
       then
          exit;
     while 1=1 do
       begin
           objOut.CreateObjectByKey(1, KM_IDDOUBLE2, objIn.KeyName);

           res := ovlObj.GetNextObject;
           if res = 0
             then
               break;
           objOut.Commit;
           mvMap.Repaint;
           objOut.Style := OS_SELECT;

           SquareObject := objOut.Square;

           ShowMessage ('SquareObject = '+FloatToStr(SquareObject));

           if MessageDlgPos('Вычислить следующее пересечение?',mtConfirmation, mbOKCancel, 0, ll, tt) = IDCANCEL
           then begin        // если нажата кнопка Отмена, то
             ObjOut.Delete;  // удалить созданный рез. объект
             exit;           // и на выход...
           end;

          ObjOut.Delete; // если нажата кнопка Ок, то просто удалить
                        // объект и в начало цикла ...
       end;

     // если пересечений больше нет, то выдать сообщение и на выход
     ShowMessagePos('Пересечений больше нет!', ll, tt);
 finally
   ovlObj.FreeOVL;
 end;
end;