Usar um sistema de login

Localize e crie uma função

Type
function isValisuser(usuario:string;senha:string):boolean;

abaixo do {$R *.dfm}

function TfrmLogin.isValisuser(usuario,senha:string):boolean;
begin
 dm.Q_usuarios.open;
 dm.Q_usuarios.paramByName('pUsuario').asstring:= usuario;
 dm.Q_usuarios.paramByName('psenha').asstring:= senha;
 dm.Q_usuarios.execute;



if (dm.Q_usuarios.RecordCount > 0) then
   begin
    Showmessage('Seja bem vindo');
    result:= true;
   end
    else
     begin
    Showmessage('Usuario nao autorizado');
    result:= false;
     end;

end;

Cria no evento onclick do button "login"

procedure TfrmLogin.Button1Click(Sender: TObject);
var
newFormPrincipal:TfrmPrincipal;
begin
if isValisuser(edtUsuario.text, edtSenha.text) then
begin
 newFormPrincipal:= TfrmPrincipal.create(self);
 hide;
 newFormPrincipal.show;
end
else
begin
  edtUsuario.SetFocus;
end;
end;