Создаем 3 формы
на первой форме размещаем кнопку, на кнопку оформляем переход на вторую форму:
Код
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.show;
end;
на второй форме размещаем кнопку "Войти" и 2 едита для логина и пароля соответственно
в варе прописываем переменные login и pass как string
при вводе неправильного пароля прописываем диалоговое окно
Код
procedure TForm2.Button1Click(Sender: TObject);
begin
login:='123';
pass:='123';
if (Edit1.Text=login) and (Edit2.Text=pass) then Form3.Show else MessageDlg('Вы ввели неправильный логин или пароль!',mtError, mbOKCancel, 0);
end;
пс: чтобы пароль был звездочками - в инспекторе, в PasswordChar убрать лишнее и поставить звездочку
