Ghost not found warning dialog shows at startup, not after connection establish

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 036bd4f..a116cfa 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -878,7 +878,11 @@ begin
   frmLog.Show;
   frmSurfacePreview.Show;
   Self.Show;
-  SakuraSeekerDetectResultChanged(Self);
+  SakuraSeeker.BeginDetect;
+  if SakuraSeeker.Count = 0 then
+    frmMessageBox.ShowMessage('\83S\81[\83X\83g(SSTP\83T\81[\83o)\82ª1\82Â\82à\8bN\93®\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B'#13#10 +
+      'SSTP Bottle\82ð\97\98\97p\82·\82é\82½\82ß\82É\82Í\81A\83S\81[\83X\83g\82ð\93¯\8e\9e\82É\8bN\93®\82·\82é\95K\97v\82ª\82 \82è\82Ü\82·'#13#10 +
+      '\8fÚ\8d×\82Í\83w\83\8b\83v\82ð\82²\97\97\89º\82³\82¢\81B');
 end;
 
 procedure TfrmSender.mnAboutClick(Sender: TObject);
@@ -1392,10 +1396,6 @@ begin
         if not Connecting then
           PostCommand(['Command: getChannels']);
         SakuraSeeker.BeginDetect;
-        if SakuraSeeker.Count = 0 then
-          frmMessageBox.ShowMessage('\83S\81[\83X\83g(SSTP\83T\81[\83o)\82ª1\82Â\82à\8bN\93®\82µ\82Ä\82¢\82Ü\82¹\82ñ\81B'#13#10 +
-            'SSTP Bottle\82ð\97\98\97p\82·\82é\82½\82ß\82É\82Í\81A\83S\81[\83X\83g\82ð\93¯\8e\9e\82É\8bN\93®\82·\82é\95K\97v\82ª\82 \82è\82Ü\82·'#13#10 +
-            '\8fÚ\8d×\82Í\83w\83\8b\83v\82ð\82²\97\97\89º\82³\82¢\81B');
       end;
       etChannelList: begin
         UpdateJoinChannelList(HeadValue);