Procedure TForm_senha.EntrarClick(Sender: TObject);
begin
dm.qsenha.Active:=false;
dm.QSenha.SQL.Clear;
dm.QSenha.SQL.Add('select senha from usuario_senha where usuario_senha.usuario ='''+ edit1.text+ '''');
dm.QSenha.ExecSQL;
dm.QSenha.Active:=true;
if Edit2.text = dm.QSenha.FieldByName('senha').Value then
begin
form_principal.show;
Form_senha.Visible := false;
end
else
begin
Label3.Caption:= 'Usuário ou Senha Incorreta';
Edit1.Text:= '';
Edit2.Text:= '';
Edit1.TabOrder:= 0;
end;
end;

Principal