[lmikle]

Это что, шутка?

Код:

procedure TForm1.Button1Click(Sender : TObject);
begin
  If Edit1.Text = 'password' Then ShowMessage('Введен правильный пароль.');
end;