GetRgnPerimeterLength example for C++ Builder

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   L_UINT   uPerimeter;
   /* Load a bitmap at its own bits per pixel */
   LEADImage1->Load("image3.cmp", 0, 1, 1 );
   LEADImage1->SetRgnEllipse( LEADImage1->BitmapHeight/3, LEADImage1->BitmapWidth /3, LEADImage1->BitmapWidth, LEADImage1->BitmapHeight, L_RGN_SET);

   L_INT nRet = LEADImage1->GetRgnPerimeterLength(uPerimeter);
   if(nRet == SUCCESS)
      ShowMessage("Length of the perimeter" + IntToStr(uPerimeter));
}