Fórum Problemas com login #174561

Estou elaborando um sistema mas preciso utilizar usuários, criei uma tabela de usuarios que fica totalmente desprotegida se por um acaso alguem tentar edita-la (esse é o primeiro problema), e outro é o seguinte:

Criei um formulario de login que eu o chamo no evento onshow do formulario principal e coloco o seguinte codigo:

procedure tform_senha.ok;
begin
if form_principal.tb_usuarioSenha.Value=maskedit1.text then
form_senha.Close else
showmessage(´Senha incorreta, favor verificar´);
end;
procedure TForm_senha.SpeedButton1Click(Sender: TObject);
begin
if form_principal.tb_usuario.FindKey([edit1.text]) then
begin
ok;
end
else
showmessage(´Usuário não Cadastrado´);
edit1.Text:=´´;
maskedit1.Text:=´´;
end;

o problema é que se o usuário fechar o formulário vai abrir o programa do mesmo jeito. e eu não posso colocar no evento onclose deste formulário para que feche o formulario principal caso isso ocorra, porque de gualguer maneira vai fechar o formulário. se alguem puder me ajudar fico extremamente grato.