Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Set the font to Wingdings and then type on the 
  PasswordChar := l; 

  or ... 
}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Edit1.Font.Name := 'Wingdings';
   Edit1.PasswordChar := 'l';
 end;