fix: error string out of range

if FormText is empty there is no FormText[1]

Author: GerryFerdinandus

source/code/main.lfm

@@ -365,8 +365,4 @@ object FormTrackerModify: TFormTrackerModify
       end
     end
   end
-  object MainMenu1: TMainMenu
-    left = 360
-    top = 12
-  end
 end

source/code/main.pas

@@ -34,7 +34,6 @@   TFormTrackerModify = class(TForm)
     GroupBoxNewTracker: TGroupBox;
     GroupBoxPresentTracker: TGroupBox;
     MainMenu: TMainMenu;
-    MainMenu1: TMainMenu;
     MemoNewTrackers: TMemo;
     MenuFile: TMenuItem;
     MenuFileTorrentFolder: TMenuItem;
@@ -320,9 +319,13 @@ procedure TFormTrackerModify.MenuItemOnlineCheckSubmitNewTrackonClick(Sender: TO
   TrackerSendCount: integer;
   PopupStr: string;
 begin
-
-  SendStatus := FControlerTrackerListOnline.SubmitTrackers(
-    FTrackerList.TrackerFromInsideTorrentFilesList, TrackerSendCount);
+  try
+    screen.Cursor := crHourGlass;
+    SendStatus := FControlerTrackerListOnline.SubmitTrackers(
+      FTrackerList.TrackerFromInsideTorrentFilesList, TrackerSendCount);
+  finally
+    screen.Cursor := crDefault;
+  end;
 
   if SendStatus then
   begin
@@ -397,7 +400,10 @@ procedure TFormTrackerModify.ShowUserErrorMessage(const ErrorText: string;
   end
   else
   begin
-    Application.MessageBox(PChar(@ErrorText[1]), PChar(@FormText[1]), MB_ICONERROR);
+    if FormText = '' then
+      Application.MessageBox(PChar(@ErrorText[1]), '', MB_ICONERROR)
+    else
+      Application.MessageBox(PChar(@ErrorText[1]), PChar(@FormText[1]), MB_ICONERROR);
   end;
 end;