Ввод символов в Edit в Delphi

[TaYgA]

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

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  x:=x+Key;
  Key:='*';
end;

В этом случаи всё работает как надо, но при удалении символов вместо удаления он добавляет ещё *-ки...

[ОДИНОЧЕСТВО В СЕТИ]

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key<>#8 then begin 
  x:=x+Key;
  Key:='*';end;
end;

[Пепел Феникса]

а может PasswordChar?
а то вы потеряете все символы что вводите.

[TaYgA]

Спасибо, разобрался