diff --git a/lcl/filectrl.pp b/lcl/filectrl.pp
index 5edb29a0c5..95f0c5ee97 100644
--- a/lcl/filectrl.pp
+++ b/lcl/filectrl.pp
@@ -62,6 +62,7 @@ Type
     procedure Loaded; override;
     function IndexOfFile(const AFilename: string): integer;
     procedure KeyUp(var Key: Word; Shift: TShiftState); override;
+    procedure SetItemIndex(AIndex: Integer); override;
   public
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -420,6 +421,12 @@ begin
   UpdateFileList;
 end;
 
+procedure TCustomFileListbox.SetItemIndex(AIndex: Integer);
+begin
+  inherited;
+  UpdateSelectedFileName;
+end;
+
 procedure TCustomFileListBox.SetFileName(const AValue: String);
 var
   i: Integer;