[Ignacio Gentile]

Código Delphi [-]
 function TfrmElegirEmpresa.ValidarSucursales(sucursal,empresa:integer): integer;
var id_sucursal,id_empresa,bandera:integer;
begin
   bandera := 0;
  frmTablas.tblUsuarioempresa.First;
  while not frmTablas.tblUsuarioempresa.Eof do
    begin
      id_sucursal:= frmTablas.tblUsuarioempresa['cod_sucursal'];
      id_empresa := frmTablas.tblUsuarioempresa['cod_empresa'];
      if (id_sucursal = sucursal) and (id_empresa=empresa) then bandera := 1;
      frmTablas.tblUsuarioempresa.Next;
    end;
  ValidarSucursales := bandera
end;

ese es el codigo de la función..No tiene nada raro, solo recibe dos parámetros y recorre una tabla..En caso de que el elemento que está leyendo concuerde con esos parámetros devuelve 1.