diff --git a/lcl/translations.pas b/lcl/translations.pas
index 55b000f6ea..60f9cb5edb 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -861,7 +861,7 @@ end;
 procedure TPOFile.UpdateItem(const Identifier: string; Original: string);
 var
   Item: TPOFileItem;
-  p: Integer;
+//  p: Integer;
   AContext,AComment,ATranslation: string;
 begin
   if FHelperList=nil then