diff --git a/converter/replacenamesunit.lfm b/converter/replacenamesunit.lfm
index 4d0993ff78..38bcb4e7e3 100644
--- a/converter/replacenamesunit.lfm
+++ b/converter/replacenamesunit.lfm
@@ -3,7 +3,6 @@ object ReplaceNamesForm: TReplaceNamesForm
   Height = 472
   Top = 438
   Width = 343
-  ActiveControl = Grid
   Caption = 'Properties and Types to replace'
   ClientHeight = 472
   ClientWidth = 343
@@ -59,6 +58,7 @@ object ReplaceNamesForm: TReplaceNamesForm
       Align = alLeft
       AutoSize = True
       BorderSpacing.Around = 6
+      Caption = '&Help'
       Constraints.MinHeight = 25
       Constraints.MinWidth = 75
       Kind = bkHelp
diff --git a/converter/replacenamesunit.pas b/converter/replacenamesunit.pas
index 8c5712c890..358624650e 100644
--- a/converter/replacenamesunit.pas
+++ b/converter/replacenamesunit.pas
@@ -225,6 +225,9 @@ end;
 procedure TReplaceNamesForm.FormCreate(Sender: TObject);
 begin
   Caption:=lisReplacements;
+  btnOK.Caption:=lisOk;
+  HelpButton.Caption:=lisMenuHelp;
+  btnCancel.Caption:=dlgCancel;
   IsLasRow:=false;
 end;