AnnNameRectLeft example for Delphi

Procedure TForm1.ExampleAnnNameRect (hObject: L_HANDLE);
var
   nLeft, nTop, nWidth, nHeight: Integer;
begin
   nLeft  := LEADAnn1.AnnNameRectLeft [hObject];
   nTop   := LEADAnn1.AnnNameRectTop [hObject];
   nWidth := LEADAnn1.AnnNameRectWidth [hObject];
   nHeight:= LEADAnn1.AnnNameRectHeight [hObject];
   ShowMessage ('Ann Name Rect: left[' + IntToStr(nLeft) + '], Top[' + IntToStr(nTop) + '], Width[' + IntToStr(nWidth) + '], Height[' + IntToStr(nHeight) + ']');
end;