Fix strange race condition with Kylix

There's another race condition when copying from gvfs mount (ftp on local lan). Needs more debugging.
All in all, everything is fine with FreePascal

1 files changed, 4 insertions, 1 deletions

diff --git a/UMain.pas b/UMain.pas
index 90f61b5..e214947 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1741,11 +1741,14 @@ var ListView: TGTKListView;
         OpenDirThread.AHighlightItem := HiliString2;
       end;
       DebugMsg(['(II) TFMain.ChangingDir: begin thread']);
-      OpenDirThread.Resume;
       tt := Now;
       b := False;
       FRemoteWait := TFRemoteWait.Create(Application);
       FRemoteWait.ParentForm := FMain;
+      
+      //  WARNING: For an unknown reason, there's a race condition in Kylix (FPC is fine).
+      //  The thread must be started *after* the FRemoteWait is created.
+      OpenDirThread.Resume;
       repeat
         Sleep(ConstInternalProgressTimer);
 //        DebugMsg(['  (II) TFMain.ChangingDir: sleep.']);