AnnMove example for Delphi

//This example moves one or more selected annotation objects.
procedure TForm1.Button1Click(Sender: TObject);
var
   DeltaX, DeltaY: Integer;
begin
   //Specify arbitrary delta values.
   DeltaX:= 200;
   DeltaY:= 100;
   //Move the selected annotations.
   LEADAnn1.AnnMove (DeltaX, DeltaY, True);
end;