diff --git a/examples/anchordocking/design/registeranchordocking.pas b/examples/anchordocking/design/registeranchordocking.pas
index 542e1d9c33..06a1d29cf7 100644
--- a/examples/anchordocking/design/registeranchordocking.pas
+++ b/examples/anchordocking/design/registeranchordocking.pas
@@ -472,10 +472,10 @@ end;
 
 procedure TIDEAnchorDockMaster.LoadLayoutFromFileClicked(Sender: TObject);
 var
-  Dlg: TSaveDialog;
+  Dlg: TOpenDialog;
   Filename: String;
 begin
-  Dlg:=TSaveDialog.Create(nil);
+  Dlg:=TOpenDialog.Create(nil);
   try
     InitIDEFileDialog(Dlg);
     Dlg.Title:=adrsLoadWindowLayoutFromFileXml;