MainMenu Items deaktivieren MDI Anwendung

[Natalia]

Mit diesem Code wird der MenuItem komischerweise immer deaktiviert
obwohl Form1 nicht active ist

procedure TMainForm.FormShow(Sender: TObject);
begin
if ActiveMDIChild=Form1 then MenuItem1.Enabled:=false;
end;