TEdit Tastatureingaben abfangen

[cookie22]

hallo,

in meinem programm möchte ich einhalbwegs sicheres password edit benutzen.

ich versuche nun die tastatureingabe abzufangen und die ankommenden keys in einen string zu speichern, ausserdem möchte ich gleichzeit halt die bekannten sternchen ins edit schreiben?

Delphi-Quellcode:

procedure TForm1.EditWndProc(var Message: TMessage);
var
  password: string
begin
  if (Message.Msg = WM_KEYUP) then
  begin
     s := s + '*';
     edtPwd.Text := s; // hier wird immer kurz das eingegebene zeichen angezeit
     password := ? // hier muss ich an die keys kommen aber wie?
     Message.Result := 1;
  end else
    FOldEditProc(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldEditProc := edtPwd.WindowProc;
  edtPwd.WindowProc := EditWndProc;
end;

soweit bin ich schonmal. meine frage ist jetzt, wie komm ich an die keys? wenn ich versuche das sternchen so zu setzen, wird immer das eingegebene zeichen noch kurz angezeigt. wie kann ich das verhindern?

danke im voraus.

MfG,
cookie