Brauche Hilfe bei Passwortabfrage

[Huso]

Also in meinem Prog sieht die Password abfrage bis jetzt so aus:

Delphi-Quellcode:

procedure TPasswordForm.PasswordEditKeyPress(Sender: TObject;
  var Key: Char);
begin
  if Key = #27 then close;
  if Key = #13 then begin
    if PasswordEdit.Text = 'matrix'
    then begin
      password;
      close;
      PreferencesForm.ShowModal;
    end;
    if PasswordEdit.Text = 'program failure'
    then begin
      close;
      MainForm.Close;
    end;
  end;
end;

im objectmanager des Edit-Feldes kaste unter Password-Char das zeichen eingeben, was die anderen überzeichnen soll...