diff --git a/lcl/forms.pp b/lcl/forms.pp
index c8b89e5066..074df22927 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -568,7 +568,7 @@ type
     destructor Destroy; override;
     procedure ControlDestroyed(AControl: TControl);
     Procedure BringToFront;
-    procedure CreateForm(NewForm : TFormClass; var ref);
+    procedure CreateForm(InstanceClass: TComponentClass; var Reference);
     function HandleAllocated: boolean;
     procedure HandleException(Sender: TObject);
     procedure HandleMessage;