if not Assigned(MdiChildForm) then
MdiChildForm:=TMdiChildForm.Create(Application);
MdiChildForm.Show;
if not Assigned(ShowModalForm) then
begin
ShowModalForm:=TShowModalForm.Create(Application);
ShowModalForm.ShowModal;
ShowModalForm.Free;
ShowModalForm:=Nil;
end;