diff --git a/lcl/comctrls.pp b/lcl/comctrls.pp
index 8435ecbb6a..0c98b9a75f 100644
--- a/lcl/comctrls.pp
+++ b/lcl/comctrls.pp
@@ -658,7 +658,7 @@ type
   private
     FAlignment: TAlignment;
     FAutoSize: Boolean;
-    FCaption: String;
+    FCaption: TTranslateString;
     FMinWidth: TWidth;
     FMaxWidth: TWidth;
     FVisible: Boolean;
@@ -673,7 +673,7 @@ type
     procedure SetMinWidth(const AValue: TWidth);
     procedure SetMaxWidth(const AValue: TWidth);
     procedure SetWidth(const AValue: TWidth);
-    procedure SetCaption(const AValue: String);
+    procedure SetCaption(const AValue: TTranslateString);
     procedure SetAlignment(const AValue: TAlignment);
     procedure SetImageIndex(const AValue: TImageIndex);
   protected
@@ -686,7 +686,7 @@ type
   published
     property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
     property AutoSize: Boolean read FAutoSize write SetAutoSize;
-    property Caption: string read FCaption write SetCaption;
+    property Caption: TTranslateString read FCaption write SetCaption;
     property ImageIndex: TImageIndex read FImageIndex write SetImageIndex default -1;
     property MaxWidth: TWidth read FMaxWidth write SetMaxWidth default 0;
     property MinWidth: TWidth read FMinWidth write SetMinWidth default 0;
diff --git a/lcl/include/listcolumn.inc b/lcl/include/listcolumn.inc
index c4b20181c4..48320ff7c8 100644
--- a/lcl/include/listcolumn.inc
+++ b/lcl/include/listcolumn.inc
@@ -140,7 +140,7 @@ begin
   WSC.ColumnSetAlignment(LV, Index, Self, FAlignment);
 end;
 
-procedure TListColumn.SetCaption(const AValue: String);
+procedure TListColumn.SetCaption(const AValue: TTranslateString);
 var
   LV: TCustomListView;
   WSC: TWSCustomListViewClass;