AnnBoundingRect... example for Delphi
Procedure TForm1. SampleAnnBoundingRect (hObject: L_HANDLE);
var
nLeft, nTop, nWidth, nHeight: Integer;
begin
nLeft := LEADAnn1.AnnBoundingRectLeft [hObject];
nTop := LEADAnn1.AnnBoundingRectTop [hObject];
nWidth := LEADAnn1.AnnBoundingRectWidth [hObject];
nHeight:= LEADAnn1.AnnBoundingRectHeight[hObject];
ShowMessage ('Ann Bounding Rect: Left[' + IntToStr(nLeft) + '], Top[' + IntToStr(nTop) + '], Width[' + IntToStr(nWidth) + '], Height[' + IntToStr(nHeight) + ']');
end;