me deêm a Luz

Tente esse código que eu usei e deu certo:
(O DM_dados é um data module, nomeacesso e senhaacesso são campos edit)

var
x : integer;
begin
x:=1;
if DM_dados.TUsuario.locate(´Nome_usuario´,nomeacesso.Text,[loCaseInsensitive]) = true then begin
if(senhaacesso.text = DM_dados.TUSUARIO.FieldByName(´Senha_usuario´).asstring) then
begin
if x = 3 then
begin
MessageDlg(´Lamento, são permitidas somente 3 tentativas para acesso ao sistema !´, mtInformation, [mbOk], 0);
close;
end else begin
FSenha.Hide;
Fconsulta.show;
end;
end else begin
showMessage(´Senha inválida para acesso ao sistema !´);
nomeacesso.clear;
senhaacesso.clear;
nomeacesso.setfocus;
x := x+1;
end;
end else begin
showMessage(´Usuário desconhecido!´);
nomeacesso.clear;
senhaacesso.clear;
nomeacesso.setfocus;
x := x+1;
end;
end;

se der certo me avise!

fernanda.m :D