diff --git a/lcl/include/control.inc b/lcl/include/control.inc
index 9aaa745f7c..7bcdffcfe1 100644
--- a/lcl/include/control.inc
+++ b/lcl/include/control.inc
@@ -3615,7 +3615,7 @@ begin
     if FloatHost <> nil then
     begin
       // => dock this control into it.
-      FloatHost.Caption := GetDockCaption;
+      FloatHost.Caption := FloatHost.GetDockCaption(Self);
       FloatHost.Visible := True;
       Dock(FloatHost,Rect(0, 0, FloatHost.ClientWidth, FloatHost.ClientHeight))
     end