После сообщения форма закрывается

qry1.SQL.Clear;
  qry1.SQL.Add('SELECT Пароль, ПД FROM Сотрудники WHERE Логин='+#39+edt2.Text+#39);
  qry1.Open;
  if qry1.IsEmpty
    then
      ShowMessage('Пользователь не найден'+edt2.Text)
    else
      if qry1.FieldByName('Пароль').Value <> edt1.Text
        then
          ShowMessage('Неверный логин или пароль') {Пробовала добавлять Form1.Show, вообще не запустился}
        else
          if qry1.FieldByName('ПД').Value =1
            then
            begin Form5.Show ; Form1.Hide end
            else
            if qry1.FieldByName('ПД').Value =2  then
             begin
             Form3.Show; Form1.Hide   end
             else
             Form8.Show; Form1.Hide;

procedure Login;
begin
 qry1.SQL.Clear;
 qry1.SQL.ADD('SELECT Пароль, ПД FROM Сотрудники WHERE Логин='+#39+edt2.Text+#39);
 qry1.OPEN;
 IF qry1.IsEmpty 
 then begin
        ShowMessage('Пользователь не найден'+edt2.Text);
        Exit; 
        end;
 
 IF qry1.FieldByName('Пароль').VALUE <> edt1.Text
 then begin
        ShowMessage('Неверный логин или пароль');
        Exit; 
        end; 
 
 Form1.Hide;
 case qry1.FieldByName('ПД').VALUE
 of 1: Form5.SHOW; 
     2: Form3.SHOW;
     else Form8.SHOW
 end;
end;