diff --git debugger/debugattachdialog.lfm debugger/debugattachdialog.lfm
index dce72c561d..3d61a82a49 100644
--- debugger/debugattachdialog.lfm
+++ debugger/debugattachdialog.lfm
@@ -11,13 +11,13 @@ object DebugAttachDialogForm: TDebugAttachDialogForm
   Constraints.MinWidth = 400
   OnCreate = FormCreate
   Position = poScreenCenter
-  LCLVersion = '1.3'
+  LCLVersion = '1.9.0.0'
   object labelRunningProcesses: TLabel
     AnchorSideTop.Control = Owner
     Left = 8
-    Height = 13
+    Height = 17
     Top = 6
-    Width = 90
+    Width = 123
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     Caption = 'Running Processes'
@@ -31,8 +31,8 @@ object DebugAttachDialogForm: TDebugAttachDialogForm
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = btnRefresh
     Left = 6
-    Height = 475
-    Top = 25
+    Height = 467
+    Top = 29
     Width = 388
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 6
@@ -43,27 +43,27 @@ object DebugAttachDialogForm: TDebugAttachDialogForm
       end    
       item
         Caption = 'PID'
-        Width = 150
+        Width = 165
       end>
     OwnerData = True
     ReadOnly = True
     RowSelect = True
     TabOrder = 0
     ViewStyle = vsReport
-    OnChange = lvProcessesChange
     OnColumnClick = lvProcessesColumnClick
     OnData = lvProcessesData
     OnDblClick = lvProcessesDblClick
     OnKeyDown = lvProcessesKeyDown
+    OnSelectItem = lvProcessesSelectItem
   end
   object btnRefresh: TButton
     AnchorSideLeft.Control = Owner
     AnchorSideBottom.Control = Owner
     AnchorSideBottom.Side = asrBottom
     Left = 6
-    Height = 23
-    Top = 506
-    Width = 64
+    Height = 27
+    Top = 502
+    Width = 61
     Anchors = [akLeft, akBottom]
     AutoSize = True
     BorderSpacing.Left = 6
@@ -77,10 +77,10 @@ object DebugAttachDialogForm: TDebugAttachDialogForm
     AnchorSideLeft.Side = asrBottom
     AnchorSideBottom.Control = btnRefresh
     AnchorSideBottom.Side = asrBottom
-    Left = 76
-    Height = 23
-    Top = 506
-    Width = 58
+    Left = 73
+    Height = 27
+    Top = 502
+    Width = 52
     Anchors = [akLeft, akBottom]
     AutoSize = True
     BorderSpacing.Left = 6
@@ -94,10 +94,10 @@ object DebugAttachDialogForm: TDebugAttachDialogForm
     AnchorSideRight.Side = asrBottom
     AnchorSideBottom.Control = btnRefresh
     AnchorSideBottom.Side = asrBottom
-    Left = 336
-    Height = 23
-    Top = 506
-    Width = 58
+    Left = 340
+    Height = 27
+    Top = 502
+    Width = 54
     Anchors = [akRight, akBottom]
     AutoSize = True
     BorderSpacing.Right = 6
diff --git debugger/debugattachdialog.pas debugger/debugattachdialog.pas
index 3b94f239b9..402dafd782 100644
--- debugger/debugattachdialog.pas
+++ debugger/debugattachdialog.pas
@@ -30,13 +30,12 @@ type
     lvProcesses: TListView;
     procedure btnRefreshClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure lvProcessesChange(Sender: TObject; Item: TListItem;
-      {%H-}Change: TItemChange);
     procedure lvProcessesColumnClick(Sender: TObject; Column: TListColumn);
     procedure lvProcessesData(Sender: TObject; Item: TListItem);
     procedure lvProcessesDblClick(Sender: TObject);
     procedure lvProcessesKeyDown(Sender: TObject; var Key: Word;
       {%H-}Shift: TShiftState);
+    procedure lvProcessesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
   private
     FPidString: string;
     FList: TRunningProcessInfoList;
@@ -282,12 +281,11 @@ begin
   end;
 end;
 
-procedure TDebugAttachDialogForm.lvProcessesChange(Sender: TObject;
-  Item: TListItem; Change: TItemChange);
+procedure TDebugAttachDialogForm.lvProcessesSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
 var
   info: TRunningProcessInfo;
 begin
-  if Item.Index <> -1 then
+  if (Item.Index <> -1) And Selected then
   begin
     info := TRunningProcessInfo(FList.Items[Item.Index]);
     FPidString := IntToStr(info.PID);