пароль и клавиши

[ani-ni4ka]

Приветик) У меня возникла проблема.
Мне было нужно вводить пароль(чтобы он скрывался звездочками), естественно любая клавиша воспрималась как символ в пароле. Я нашла как сделать, чтобы пароль с помощью Backspace стирался. Теперь проблема в том, что мне нужно с помощью Enter переводить курсор на кнопку при этом не добавляя в пароль символа(Eidtов 2 и кнопка). А как это сделать не знаю. Помогите ребят пожалуйста.
Вот код который про BackSpace:

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
var
Pass:string;
begin
Pass:=Pass+Key;
Key:=#0;
end;

procedure TForm1.Edit2KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var Pass:string;
begin
if(Key=8)or(key=27) then
begin
Edit2.Text:=copy(Edit2.Text, 1, Length(Edit1.Text)-1);
Pass:=copy(Pass, 1, Length(Pass)-2);
end
else Edit2.Text:=Edit2.Text+'*';
Edit2.SelStart:=Length(Edit2.Text);
Caption:=Pass;

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

а вам не проще использовать свойство PasswordChar?

[Вадим Мошев]

Для того, чтобы в Edit вводимые символы заменялись звёздочками, в инспекторе объектов этого компонента следует указать: PasswordChar: *.

Насчёт клавиши Энтер и БэкСпейс не волнуйтесь, они не вводятся в Edit.