Fórum ajuda com login e senha no delphi + firebird #462367

boa tarde!!!
sou novo aqui no forum! me desculpe se coloquei o topico no lugar errado XD
mas preciso de ajuda aqui... estou desenvolvendo um sistema de pedidos e vendas e preciso fazer a tela de login.
consegui fazer o sistema comparar o meu edit da senha com o primeiro dado da minnha tabela. mas como a minha tabela tem mais de um dado nao ta funcionando.
ele compara apenas com o primeiro campo da tabela e nao com todos.

meu codigo esta assim:

procedure Tfrm_acesso.BitBtn1Click(Sender: TObject);
begin
dm.Query_senha.Active:=false;
dm.Query_senha.sql.Clear;
dm.Query_senha.SQL.Add('select * from tbl_acesso');
With DM.Query_senha do begin
Open;
end;
if (edt_Senha.text = dm.Query_senha.FieldByName('senha').AsString) then
begin
ProgressBar1.Position:=10;
Sleep(300);
ProgressBar1.Position:=20;
Sleep(300);
ProgressBar1.Position:=30;
Sleep(300);
ProgressBar1.Position:=40;
Sleep(300);
ProgressBar1.Position:=50;
Sleep(300);
ProgressBar1.Position:=60;
Sleep(300);
ProgressBar1.Position:=75;
Sleep(300);
ProgressBar1.Position:=90;
Sleep(300);
ProgressBar1.Position:=100;
Sleep(200);
Showmessage('Completo, Abrindo o sistema!');
frm_principal.Show;
ProgressBar1.Position:=0;
end

else
begin
showmessage('Senha invalia. tente novamente');
end;

end;

valeuuU!