AnnRectWidth example for Delphi

procedure TForm1.LEADAnn1AnnEnumerate (hObject: L_HANDLE);
begin
   LEADAnn1.AnnRectWidth [hObject]:= LEADAnn1.AnnRectWidth [hObject] + 50;
end;