Показать символы для пароля в XP

Оформил: DeeCo

{ 
  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;