hola
donde vas a sustituir la MiCampo por el nombre del campo que tiene la clave en la tabla.
Código Delphi
[-]
procedure TFrmUsuari.BitBtn1Click(Sender: TObject);
begin
if (ADOtable1.Locate('usuari', meUsuari.Text, []) and (ADotable1Password.Value = meCodi.Text)) then
begin
ShowMessage('Aqui debes hacer lo que tu quieras.');
end else
ShowMessage('Mi#@}, este usuario no esta aqui, revise');
end;