Modified code that displays test server name in main window caption re changes to how test server is specified.

Author: DelphiDabbler

Src/FmMain.pas

@@ -1402,8 +1402,8 @@ procedure TMainForm.InitForm;
     // Set window caption
     Application.Title := TAppInfo.ProgramCaption;
     Caption := TAppInfo.ProgramCaption;
-    if TWebInfo.UsingLocalHost then
-      Caption := Caption + ' [' + TWebInfo.LocalHost + ']';
+    if TWebInfo.UsingTestServer then
+      Caption := Caption + ' [' + TWebInfo.TestServerHost + ']';
 
     // Restore window settings
     fWindowSettings := TMainWindowSettings.CreateStandAlone(Self); // auto-freed