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;