[san-46]

Код:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if (Edit1.Text='qaz') then begin
     Release;
     MainForm.Show;
  end else
    MessageDlg('Вы ввели неправельный пароль', mtError, [MBOK],0);
end;