fix connect

DeviceForm.pas

@@ -105,7 +105,8 @@ type
     function  GetAutoStartBoardType: Integer;
     function  GetSavedBoardType(Idx: Integer): Integer;
 
-    // Получить результат
+    // Получить/сбросить результат
+    procedure ClearResult;
     property DialogResult: TDeviceDialogResult read FResult;
     property OnDiscover: TNotifyEvent read FOnDiscover write FOnDiscover;
     property SavedCount: Integer read FSavedCount;
@@ -596,6 +597,13 @@ begin
   ModalResult := mrCancel;
 end;
 
+procedure TDeviceDialog.ClearResult;
+begin
+  FResult.Accepted  := False;
+  FResult.IPAddress := '';
+  FResult.SavedIdx  := -1;
+end;
+
 function TDeviceDialog.GetAutoStartIP: string;
 var
   I: Integer;