diff --git a/lcl/lclstrconsts.pas b/lcl/lclstrconsts.pas
index e9d47cdcb1..7da84010e5 100644
--- a/lcl/lclstrconsts.pas
+++ b/lcl/lclstrconsts.pas
@@ -219,7 +219,7 @@ resourceString
   rsRasterImageSaveInUpdate = 'Cannot save image while update in progress';
   rsNoWidgetSet = 'No widgetset object. '
     +'Please check if the unit "interfaces" was added to the programs uses clause.';
-  rsPressOkToIgnoreAndRiskDataCorruptionPressCancelToK = '%s%sPress Ok to '
+  rsPressOkToIgnoreAndRiskDataCorruptionPressCancelToK = '%s%sPress OK to '
     +'ignore and risk data corruption.%sPress Cancel to kill the program.';
   rsCanNotFocus = 'Can not focus';
   rsListIndexExceedsBounds = 'List index exceeds bounds (%d)';