переход на другую форму по паролю

[ALEXandr20333]

Делаю приложение и при входе сделал форму где нужно водить пароль, если пароль введен верно то открывается новая форма и эта закрывается
и при этом можно производить редактирование данных в программе. А для того чтобы нельзя было редактировать программу я кинул CheckBox и если он нажат то пользователь заходит в качестве Гостя и редактирование невозможно. А проблема у меня вот в чем. когда я жму на CheckBox и нажимаю на кнопку я должен без ввода пароля перейти на другую форму
вот код

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if Password.text='12345'
then begin
label3.Caption:='Верно';
form2.show;
form3.BitBtn3.VISIBLE:=true;
form1.Hide;
end
 else     begin
 k:=k-1;
  Password.text:='';
 showmessage('Неверный пароль! У вас осталось '+inttostr(k)+' попыток');
Password.SetFocus
  end;
  if k=0 then begin
  showmessage('Пароль введен неверно 3 раза, программа закрывается');
  form1.close;    end;
  if  CheckBox1.Checked=true    then showmessage('Вы заходите в качестве Гостя и редактирования программы невозможна');
   form2.show;
form3.BitBtn3.VISIBLE:=false;
form1.Hide;
end;

я перехожу но перед этим выскакивает showmessge('Неверный пароль! У вас осталось '+inttostr(k)+' попыток'); как это исправить чтобы при нажатии на CheckBox я мог спокойна переходить на другую форму



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[northener]

как это исправить чтобы при нажатии на CheckBox я мог спокойна переходить на другую форму

Перемести код с проверкой чекбокса в самое начало процедуры, но не забудь все остальное поставить в условие else этой проверки.

[ALEXandr20333]

спасибо а так что-то я вчера не додумался