procedure TForm1.Button1Click(Sender: TObject);

var pass,vhodpass:string; //Указываем переменные

begin

pass:=('123'); //Задаем пароль, который будет использоваться для входа в программу

vhodpass:=Edit1.Text; //Указываем программе, откуда берется значение переменной vhodpass

if vhodpass=pass then //Проверяется условие соответствия. Если все правильно, то....

begin

Showmessage('Спасибо за регистрацию!'); //... выводится сообщение об успехе, показывается вторая форма и скрывается первая, а если нет, то...

form1.Visible:=false;

form2.Show;

end

else

showmessage('Неправильный пароль!'); //...выводится сообщение об ошибке

end;