AnnNameBoundingRectLeft example for Delphi

Procedure TForm1. SampleAnnNameBoundingRect (hObject: L_HANDLE);
var
   nLeft, nTop, nWidth, nHeight: Integer;
begin
   nLeft  := LEADAnn1.AnnNameBoundingRectLeft [hObject];
   nTop   := LEADAnn1.AnnNameBoundingRectTop [hObject];
   nWidth := LEADAnn1.AnnNameBoundingRectWidth [hObject];
   nHeight:= LEADAnn1.AnnNameBoundingRectHeight [hObject];
   ShowMessage ('Ann Name Bounding Rect: Left[' + IntToStr(nLeft) + '], Top[' + IntToStr(nTop) + '], Width[' + IntToStr(nWidth) + '], Height[' + IntToStr(nHeight) + ']');
end;