AnnRectTop example for Delphi

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