InsertMarker example for Delphi

procedure TForm1.InsertMarkerClick(Sender: TObject);
var
   i: Integer;
begin
   LEADMarker1.LoadMarkers ( 'e:\image1.jpg', 0 );
   LEADMarker2.LoadMarkers ( 'e:\image2.tif', 0 );
   LEADMarker1.GetMarker ( 0 );
   LEADMarker2.MarkerType:= LEADMarker1.MarkerType;
   LEADMarker2.ElementCount:= LEADMarker1.ElementCount;
   for i:= 0 to LEADMarker1.Count - 1 do
   begin
      LEADMarker2.Element[i]:= LEADMarker1.Element[i];
   end;
   LEADMarker2.InsertMarker ( 0 );
end;