diff --git a/debugger/watchpropertydlg.pp b/debugger/watchpropertydlg.pp
index 334859c468..afb0f5862e 100644
--- a/debugger/watchpropertydlg.pp
+++ b/debugger/watchpropertydlg.pp
@@ -70,7 +70,9 @@ type
   end;
   
 implementation
-
+uses
+  LazarusIDEStrConsts;
+  
 { TWatchPropertyDlg }
 
 procedure TWatchPropertyDlg.btnOKClick(Sender: TObject);
@@ -110,6 +112,27 @@ begin
   txtDigits.Enabled := False;
   chkAllowFunc.Enabled := False;
   rgStyle.Enabled := False;
+  
+  Caption:= lisWatchPropert;
+  lblExpression.Caption:= lisExpression;
+  lblRepCount.Caption:= lisRepeatCount;
+  lblDigits.Caption:= lisDigits;
+  chkEnabled.Caption:= lisEnabled;
+  chkAllowFunc.Caption:= lisAllowFunctio;
+  btnOK.Caption:= lisOkBtn;
+  btnCancel.Caption:= dlgCancel;
+  btnHelp.Caption:= lisPckEditHelp;
+  rgStyle.Caption:= lisStyle;
+  rgStyle.Items[0]:= lisCharacter;
+  rgStyle.Items[1]:= lisString;
+  rgStyle.Items[2]:= lisDecimal;
+  rgStyle.Items[3]:= lisHexadecimal;
+  rgStyle.Items[4]:= lisFloatingPoin;
+  rgStyle.Items[5]:= lisPointer;
+  rgStyle.Items[6]:= lisRecordStruct;
+  rgStyle.Items[7]:= dlgAssemblerDefault;
+  rgStyle.Items[8]:= lisMemoryDump;
+
 end;
 
 destructor TWatchPropertyDlg.destroy;
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 141f1def56..68d01a671c 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -3712,6 +3712,22 @@ resourcestring
   lisShrinkToSmal = 'Shrink to smallest';
   lisGrowToLarges = 'Grow to Largest';
 
+  // Watch Property Dialog
+  lisWatchPropert = 'Watch Properties';
+  lisExpression = 'Expression:';
+  lisRepeatCount = 'Repeat Count:';
+  lisDigits = 'Digits:';
+  lisAllowFunctio = 'Allow Function Calls';
+  lisStyle = 'Style';
+  lisCharacter = 'Character';
+  lisString = 'String';
+  lisDecimal = 'Decimal';
+  lisHexadecimal = 'Hexadecimal';
+  lisFloatingPoin = 'Floating Point';
+  lisPointer = 'Pointer';
+  lisRecordStruct = 'Record/Structure';
+  lisMemoryDump = 'Memory Dump';
+
 
 implementation