submenu mit passwort schützen

[tom_po]

ich hab's mal so probiert, von meinem Hauptmenu auf (passowort nur auf ein bestimmtes Untermenu angwendet=editarencomendas1.click).
die form passworddlg öffne ich mit der procedure showpass, die form geht auf, wenn ich jedoch das passwort mo eingebe, passiert nichts...

Delphi-Quellcode:

procedure showpass;
 begin
  passworddlg:=Tpassworddlg.create(mainform);
  passworddlg.Show;
 end;

procedure TMainForm.Editarencomendas1Click(Sender: TObject);
 begin
 showpass;
  if passunit.passworddlg.Password.Text =  'mo' then
  showdbview('select  Order as "N.P.",Client as "Cliente",Article as "Artigo",finaldate as "Data Entrega",realdate as "Data Embalado",materialin as "Entrada Material",cuttingin as "Entrada Corte",cuttingout as "Saída Corte",'
  +'sewingin as "Entrada Conf.",sewingout as "Saída Conf.",tipo as "Stilo",Colour as "Côr",Pieces as "Peças",Minutes as "Minutos",pgroup as "Linha",prepair as "Prepar.",washing as "Lav.",'
  +'packingout as "Saída Embalagem",observations as "Observações" from orders','Mudificar Encomendas',true,true)
  else passunit.PasswordDlg.CancelBtn.Click;
 end;