Allow new name to not be a database object

src/pu_edittargets.pas

@@ -719,11 +719,41 @@ procedure Tf_EditTargets.BtnImportMosaicClick(Sender: TObject);
 end;
 
 procedure Tf_EditTargets.BtnNewObjectClick(Sender: TObject);
+var n: integer;
+    ra0,dec0,length0,width0,pa : double;
+    obj,objname : string;
+    foundok: boolean;
 begin
   PageControlTools.ActivePageIndex:=pageobject;
   PageControlPlan.ActivePageIndex:=pageobject;
   NewObject;
-  Btn_coord_internalClick(Sender);
+  n:=TargetList.Row;
+  obj:=inputbox(rsNewObject, rsObject+':' , '');
+  objname:=uppercase(obj);
+  foundok:=false;
+  if length(objname)>1 then {Object name length should be two or longer}
+  begin
+    load_deep;{Load the deepsky database once. If already loaded, no action}
+    linepos:=0;{Set pointer to the beginning}
+    repeat
+      read_deepsky('T' {full database search} ,0 {ra},0 {dec},1 {cos(telescope_dec)},2*pi{fov},{var} ra0,dec0,length0,width0,pa);{Deepsky database search}
+      if ((objname=uppercase(naam2)) or (objname=uppercase(naam3)) or (objname=uppercase(naam4))) then
+      begin
+        TargetList.Cells[colra,n]:=RAToStr(ra0*12/pi);{Add position}
+        TargetList.Cells[coldec,n]:=DEToStr(dec0*180/pi);
+
+        if naam3='' then TargetList.Cells[colname,n]:=naam2 {Add one object name only}
+        else
+        TargetList.Cells[colname,n]:=naam2+'_'+naam3;{Add two object names}
+
+        foundok:=true;
+        linepos:=$FFFFFF; {Stop searching}
+     end;
+    until linepos>=$FFFFFF;{Found object or end of database}
+  end;
+  if not foundok then
+    TargetList.Cells[colname,n]:=obj;
+  TargetChange(nil);
   ShowPlan;
 end;