Edit1.PasswordChar:=#42;   {*}
{or}
Edit1.PasswordChar:=#35;   {#}
{or}
Edit1.PasswordChar:='*';
{or}
Edit1.PasswordChar:='x';
{
Use the PasswordChar property to create an edit control that displays a special character in place of any entered text. If PasswordChar is set to the null character (ANSI character zero), the edit control displays its text normally. If PasswordChar is any other character, the edit control displays PasswordChar in place of each character typed. PasswordChar affects the appearance of the edit control only. The value of the Text property reflects the actual characters that are typed.
 
}

program echostar;
uses Crt;
const
  EnterKey = ord(13);
var
  Entry :char;
  SecretMessage :string;
begin
  ClrScr;
  SecretMessage := '';
  Entry := ' ';
  writeln('Enter your secret word or message:');
  repeat
    begin
      Entry := (Readkey);
      write('*');
      if ord(Entry) <> EnterKey then
        SecretMessage := SecretMessage + Entry;
    end;
  until ord(Entry) = EnterKey;
  {display the entry to show it works, then remove}
  writeln;
  writeln('Secret message is ', SecretMessage);
end.