VCL Delphi

Edit1.PasswordChar :=toEOF;