Application.ShowMainForm:= False Rückgängig machen Ohne Self.Show

[Fussel9]

Delphi-Quellcode:

implementation
uses UMain;
var FMain: TFormMain;
{$R *.dfm}
{ TFEnterPW }

procedure TFEnterPW.CheckPasswort;
var Load: TInifile;
    passwort:String;
begin
  Load:=TInifile.Create(ExtractFilePath(ParamStr(0))+'settings.lem');
  ShowMessage(ExtractFilePath(ParamStr(0))+'settings.lem');
  passwort:=Load.ReadString('PW','MPW','AGAbugudalo91634187621986201245237156');
    if not (passwort='AGAbugudalo91634187621986201245237156') then
      begin
        if not (passwort=EPasswort.Text) then
          begin
            MessageDLG('Falsches Passwort!',mtWarning,[mbCancel],0);
            self.Close;
          end
        else
          begin
            MessageDLG('Passwort stimmt mit dem Masterpasswort überein.',mtInformation,[mbOK],0);
            Application.ShowMainForm:=True;
            FMain:=TFormMain.Create(self);
            FMain.Show;
          end;
      end
    else
      begin
        MessageDLG('Ladefehler!',mtError,[mbOK],0);
      end;
  Load.Free;
end;

Wenn ich es so schreibe, dann kommt eine Fehlermeldung: Der Gerätename wird von dieser Anwendung bereits als Alias genutzt...