Implementar una clase en un Objeto (TEdit)

[Jose Roman]

Cordial saludo,
Este tengo codigo:

Código Delphi [-]
type   
TEdit  = class(StdCtrls.TEdit)     
  protected       
    procedure WndProc(var Message: TMessage); override;   
end;

const   
ECM_FIRST  = $00001500;   
EM_SHOWBALLOONTIP = ECM_FIRST + 3;  

implementation  

procedure TEdit.WndProc(var Message: TMessage); 
begin
   if Message.Msg = EM_SHOWBALLOONTIP then exit;
   inherited WndProc(Message); 
end;

el cual muy amablemente escafandra y dec me colaboraron a pasarlo a pascal, he tratado de implementarlo pero mi nivel no es muy avanzado, alguien podría darme un ejemplo de como se implementa este código para utilizarlo en un TEdit con la propiedad PasswordChar = '*'?