Im Edit-Feld in einer InpuBox nur *** anzeigen (Passwort)

[dopeline]

das habe ich auf dieser Seite gefunden:

Delphi-Quellcode:

[...]
2nd example: You need to change the edit property of a InputQuery, for instance the PasswordChar.

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure WMHack(var message: TMessage); message WM_USER + 1024;
  end;
...
implementation
...
const
  ACaption = 'Caption';

procedure TForm1.Button1Click(Sender: TObject);
begin
  PostMessage(Handle, WM_USER + 1024, 0, 0);
  InputBox(ACaption, 'Prompt', 'Default');
end;

procedure TForm1.WMHack(var message: TMessage);
var
  i: Integer;
  j: Integer;
begin
  for i := 0 to Screen.FormCount-1 do
    if Screen.Forms[i].Caption = ACaption then
    begin
      for j := 0 to Screen.Forms[i].ControlCount-1 do
        if Screen.Forms[i].Controls[j] is TEdit then
        begin
          TEdit(Screen.Forms[i].Controls[j]).PasswordChar := '#';
          TEdit(Screen.Forms[i].Controls[j]).SelectAll;
          Exit;
        end;
    end;
end;
[...]

Funktioniert nur irgendwie nicht.
meckert schon, wenn ich die prozedur unter private deklariere...

Code:

[Fehler] Uhaupt.pas(116): Ungenügende Forward- oder External-Deklaration: 'TFormHaupt.WMHack'

Kann jemand helfen?

Gruß, dopeline