Maximizar MDIChild

[ramonibk]

He probado diferentes opciones sobre este código. Poco mas o menos
pero siempre de de acceso violation.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
 Articulo : TfrmArticulos;
begin
 If ArticuloFrm = True Then
  Begin
   if frmArticulos.WindowState = wsNormal Then
     Begin
      frmArticulos.BringToFront;
     End;
   if frmArticulos.WindowState = wsMinimized then
     Begin
      frmArticulos.WindowState := wsNormal;  
     End;
  End;
 If ArticuloFrm = False Then
  Begin
   Articulo := TfrmArticulos.Create(Self);
   ArticuloFrm := True;
  End;
end;