uses
  HotSpotEditor;

procedure TForm1.Button1Click(Sender: TObject);
var
  frmEditor: TfrmHSIEditor;
begin
  FHotSpots.Assign(HotSpotImage1.HotSpots);

  FPicture.Assign(HotSpotImage1.Picture);


  frmEditor := TfrmHSIEditor.Create(nil);

  try
    if frmEditor.ShowModal = mrOK then
    begin
    HotSpotImage1.HotSpots.Assign(FHotSpots);

    HotSpotImage1.Picture.Assign(FPicture);

  end;

  finally
    frmEditor.Free;

  frmEditor := nil;

  end;
end;