submenu mit passwort schützen

[tom_po]

ich hab's mal so probiert, klappt aber nicht, meine "geschützte Form" geht sofort auf, ohne dass ein Paswort eingegeben werden kann:

Delphi-Quellcode:

procedure TMainForm.Editarencomendas1Click(Sender: TObject);
begin
showpass;
if passunit.passworddlg.Password.Text =  'mo' then
 passworddlg.Close
 else begin
 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);
 end;
end;

dies ist der Code des abgeönderen Passortdialogs, also Beispiel hier das Passwort mo:

Delphi-Quellcode:

procedure TPasswordDlg.OKBtnClick(Sender: TObject);
begin
 if passworddlg.Password.Text =  'mo' then
 passworddlg.Close
 else passworddlg.password.Text := '';
 end;