Simple Code Button Login on Delphi

This my code simple to checking login using query and place on login button, here we go.. Procedure TfrmLogin.cxbtn5Click(Sender: TObjec...