Как убрать заголовок в дочерней форме MDI

Если в дочерней форме MDI установить BorderStyle в bsNone, то заголовок формы не исчезнет. (Об этом сказано в хелпе). А вот следующий пример решает эту проблему:

type
  ... = class(TForm)
{ other stuff above }
procedure CreateParams(var Params: TCreateParams); override;
{ other stuff below }
  end;

...

Procedure tMdiChildForm.CreateParams( var Params : tCreateParams ) ;
Begin
  Inherited CreateParams( Params ) ;
  Params.Style := Params.Style and (not WS_CAPTION) ;
End;