diff --git a/editor/editor2/UnitfrmMain.dfm b/editor/editor2/UnitfrmMain.dfm
index 8c12a14d..4721a5ac 100755
--- a/editor/editor2/UnitfrmMain.dfm
+++ b/editor/editor2/UnitfrmMain.dfm
@@ -1979,6 +1979,7 @@ object frmMain: TfrmMain
     Visible = False
     OnDblClick = lvDebugDblClick
     OnEnter = lvDebugEnter
+    OnMouseDown = lvDebugMouseDown
   end
   object ilMenu: TImageList
     Left = 826
@@ -5797,4 +5798,16 @@ object frmMain: TfrmMain
     Left = 698
     Top = 4
   end
+  object ppmCopy: TPopupMenu
+    Left = 698
+    Top = 34
+    object mnuCopyItem: TMenuItem
+      Caption = 'Copy Item'
+      OnClick = mnuCopyItemClick
+    end
+    object mnuCopyAll: TMenuItem
+      Caption = 'Copy all'
+      OnClick = mnuCopyAllClick
+    end
+  end
 end
diff --git a/editor/editor2/UnitfrmMain.pas b/editor/editor2/UnitfrmMain.pas
index 7c26cbc7..6bad0955 100755
--- a/editor/editor2/UnitfrmMain.pas
+++ b/editor/editor2/UnitfrmMain.pas
@@ -5,7 +5,7 @@ interface
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnList,
-  ImgList, ComCtrls, SciDocuments, SciLexer,
+  ImgList, ComCtrls, SciDocuments, SciLexer, ClipBrd,
   SciLexerMod, SciAutoComplete, SciCallTips, SciLexerOptionsDlg,
   SciSearchReplace, StdCtrls, Tabs, Menus, ShellAPI, ScintillaLanguageManager,
   SciLexerMemo, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
@@ -68,6 +68,9 @@ type
     acSelectAll: TAction;
     acUnidenter: TAction;
     acLoopGenerator: TAction;
+    ppmCopy: TPopupMenu;
+    mnuCopyItem: TMenuItem;
+    mnuCopyAll: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure acNewExecute(Sender: TObject);
     procedure acOpenExecute(Sender: TObject);
@@ -141,6 +144,10 @@ type
     procedure sciEditorModified(Sender: TObject; const position,
       modificationType: Integer; text: PAnsiChar; const length, linesAdded,
       line, foldLevelNow, foldLevelPrev: Integer);
+    procedure lvDebugMouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure mnuCopyItemClick(Sender: TObject);
+    procedure mnuCopyAllClick(Sender: TObject);
   private
     eSelectedTab: Integer;
     eCurrentLine: Integer;
@@ -149,6 +156,7 @@ type
     StdAutoComplete: String; // Save this because we add special functions
     StdCallTips: String;     // etc. dynamically for each file
     FunctionType: TStringList;
+    CurrItem: TListItem;
     function StrLength(eStr: String): Integer;
     procedure OnExceptionHandler(Sender: TObject; E: Exception);
     procedure DeleteNode(Node: TTreeNode);
@@ -1173,4 +1181,28 @@ begin
   Result := Length(eStr);
 end;
 
+procedure TfrmMain.lvDebugMouseDown(Sender: TObject; Button: TMouseButton;
+  Shift: TShiftState; X, Y: Integer);
+begin
+  if (Button = mbRight) and (Assigned(lvDebug.GetItemAt(X, Y))) then begin
+    CurrItem := lvDebug.GetItemAt(X, Y);
+    ppmCopy.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
+  end;
+end;
+
+procedure TfrmMain.mnuCopyItemClick(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(CurrItem.Caption));
+end;
+
+procedure TfrmMain.mnuCopyAllClick(Sender: TObject);
+var i: Integer;
+    eStr: String;
+begin
+  eStr := '';
+  for i := lvDebug.Items.Count -1 downto 0 do
+    eStr := lvDebug.Items[i].Caption + #13#10 + eStr;
+  Clipboard.SetTextBuf(PChar(eStr)); 
+end;
+
 end.