GetObjectInfo example for Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   uX: L_UINT;
   uY: L_UINT;
   uRound: L_UINT;
   nAngle: L_INT;
   nRet: L_INT;
begin

   { Load a bitmap at its own bits per pixel }
   LEADImage1.Load ('image3.cmp', 0, 1, 1 );

   {Get the objects center of mass and it's roundness.}
   nRet:= LEADImage1.GetObjectInfo( FALSE, uX, uY, nAngle, uRound);

   if (nRet = SUCCESS) then
   begin
      ShowMessage ( 'object''s center mass is at = (' + IntToStr(Trunc(uX/100)) + ' , ' + IntToStr(Trunc(uY/100)) + ')');
   end;
end;