Função para criar form tanto mdichild qto normal

Procedure CriaForm(FormClasse: TFormClass; var NewForm: TObject);
begin
Try
WaitMouse; // Veja outra dica para funções de ponteiro do mouse.
if (TForm(NewForm) = Nil) Or (not TForm(NewForm).HandleAllocated) Then
NewForm := FormClasse.Create(Self)
else
begin
if (TForm(NewForm).WindowState = WsMinimized) Then
TForm(NewForm).WindowState := wsNormal;
end;
TForm(NewForm).Show;
Finally
ResetMouse;
end;
end;

//É só chamar a função assim:
CriaForm(TFCadastro, TObject(FCadastro));