Всем здравствуйте! Есть одна небольшая задачка!

[Argontarg]

Всем здравствуйте! Есть одна небольшая задачка! К примеру я создал одну кнопку в ней код который открывает какой-нибудь файл, затем добавил 1 edit и 1 label. Как их все правильно связать, чтобы к примеру для того, чтобы я имел доступ к кнопке нужно было вводить пароль в edit, а в label отображалось : пароль верный или неверный. Т.е. нужно чтобы Enabled у кнопки был false при запуске проги, а после введения правильного пароля менялся на true. Как всё это правильно сделать, подскажет!

var
s,s1:string;
i:integer;
begin
s:='Правильный пароль';
s1:='Неправильный пароль';
i:=edit1.text;
If edit1:='12345' then 
begin
Button1.Enabled:=true;
Label1.Caption:=s;
end;
else
Button1.Enabled:=false;
Label1.Caption:=s;
end;

ну примерно так начеркал, исправьте пжл!

[type_Oleg]

Вот так можно. Если после ввода пароля надо нажать Enter

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key<>VK_RETURN	then Exit;   
 Button1.Enabled:=Edit1.text='12345';  
 if Button1.Enabled
  then Label1.Caption:='верный'
  else Label1.Caption:='не угадал, не угадал ';
end;

Это обработчик события - нажата клавиша Enter в поле Edit