hola, a ver si ayudo:
- DIRECCIONES está como filtrada (filtered = true)?
- yo probaría con:
OnCellClick ;
begin
QueryDir.Filter := 'categoria = ' + QueryCat.FieldByName('id').AsString;
( o en caso de ID ser string: QueryDir.Filter := 'categoria = ''' + QueryCat.FieldByName('id').AsString + '''')
end;
Talvez agregar un Refresh...y a ver que pasa.
Noté que usaste Queries, creo recordar que los filtros con TQuery me produjeron algún dolor de cabeza. Porque no haces el "filtrado" a través de SQL, en vez de filtrado?...en una de esas funciona mejor.
Eso....ojalá y te vaya bien...nos vemos!