{ 1.
Set the font to Wingdings and then type on the
PasswordChar := l;
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Name := 'Wingdings';
Edit1.PasswordChar := 'l';
end;
{ 2.
Set the font Charset to 2
(Symbol_Charset) and then type on the PasswordChar := l; // ascii = 108
}
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Charset := 2; //SYMBOL_CHARSET
Edit1.PasswordChar := 'l'; //ascii = 108
end;