Ввод пароля в Edit

[Crunkordie]

Здравствуйте.
Подскажите пожалуйста, как сделать так, что бы при записи в Edit любого текста, он выводился как символ "*".
Нашел в интернете один пример, но он не очень удачный:

var Pass: string;
...
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Pass:=Pass+Key;
  Key:='*';
  Caption:=Pass;
end;
...
procedure TForm4.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
Caption:=IntToStr(Key);
end;

[lowercase]

используйте свойство Edit1.PasswordChar

[Crunkordie]

хм.. даже не представлял себе, что все так просто. Спасибо.