Session.OnPassword , erro ao compilar ... Delphi 7

[Luis_M]

Estou a precisar de saber ( ou comparar ) a passw duma table ao abri-la e pretendo utilizar a minha propria form para pedir que insirem essa passw, caso seja diferente duma dada por mim.

Segundo tenho lido, temos a Session.Onpassword e então "trabalhar" a coisa aí.

O delphi (7) tem exemplo, mas não consigo meter aquilo a funcionar.

Se meto um botão, onclick:

Session.OnPassword:=APass;  // Vái directo a uma procedure :
// Retirado do Help do delphi
procedure APass(Sender: TObject; var Continue: Boolean);
var
  Passwrd: String;
begin
  Passwrd := InputBox('Enter password', 'Password:', '');
  Continue := (Passwrd > '');
  Session.AddPassword(Passwrd);
end;

Dá erro ao compilar, se uso Session.OnPAssword(Apass);    diz que faltam argumentos....

À muito que ando á volta disto e não consigo arranjar maneira de por a funcionar.

Alguma ajuda por aí ?

[Luis_M]

Problema resolvido.