TMenuItem öffnet sich nicht

[WoTo]

Hallo zusammen,
ich habe das Problem, daß wenn das OnClick-Ereignis aufgerufen wird, die Untermenupunkte nicht angezeigt werden.

Nachdem der Haupt-Menupunkt ausgewählt wurde, wird ein Formular geöffnet, wo eine Passwortabfrage erscheint. Ist das Passwort richtig, so sollen die Untermenupunkte enabled ansonsten disabled werden. Das funktioniert zwar, aber der Hauptmenupunkt wird nicht "ausgeklappt", so daß man die Untermenupunkte nicht anwählen kann.

Folgender Code wird im OnClick-Ereignis ausgeführt:

Delphi-Quellcode:

procedure TForm1.miSettingsClick(Sender: TObject);
begin
    if frmPassword.ShowModal = mrOK then
    begin
      if frmPassword.Password = 'HALLO' then
      begin
        miPLCSet.Enabled := true;
        miCreateIni.Enabled := true;
      end else
      begin
        miPLCSet.Enabled := false;
        miCreateIni.Enabled := false;
      end;
    end;
end;

Die Abfrage des Passwortes ist erst einmal eine Vereinfachung, dies wird noch geändert.

Hat jemand eine Idee ?

Gruß
Woto