procedure TFrmUsuari.BitBtn1Click(Sender: TObject);
begin
if (ADOtable1.Locate('usuari', meUsuari.Text, []) and (ADotable1MiCampo.Value = meCodi.Text)) then
begin
ShowMessage('Aqui debes hacer lo que tu quieras.');
end else
ShowMessage('Mi#@}, este usuario no esta aqui, revise');
end;