diff --git a/installer/installer/UnitInstall.pas b/installer/installer/UnitInstall.pas
index 312094f1..e86c6ebf 100755
--- a/installer/installer/UnitInstall.pas
+++ b/installer/installer/UnitInstall.pas
@@ -612,7 +612,7 @@ begin
       except
         on E: Exception do begin
           if not Cancel then
-            MessageBox(frmMain.Handle, PChar('An error occured while uploading "' + FileList[i] + '"!' + #13 + E.Message), PChar(frmMain.Caption), MB_ICONSTOP);
+            MessageBox(frmMain.Handle, PChar('An error occured while uploading "' + FileList[i] + '"!' + #13 + E.Message), PChar(Application.Title), MB_ICONSTOP);
           Screen.Cursor := crDefault;
           Application.Terminate;
           exit;
diff --git a/installer/installer/UnitfrmMain.pas b/installer/installer/UnitfrmMain.pas
index 4f375397..ffccda8d 100755
--- a/installer/installer/UnitfrmMain.pas
+++ b/installer/installer/UnitfrmMain.pas
@@ -154,6 +154,9 @@ var ePath: String;
     eOS: TOS;
 begin
   if jplWizard.ActivePage = jspFTP then begin
+    if not IdFTP.Connected then
+      IdFTP.Connect;
+    
     { FTP }
     eStr := TStringList.Create;
     ePath := '/';