Hola
Ampliemos esto un poco, genéricamente:
Por ejemplo:
Si tenemos en un combobox a los usuarios:
Código Delphi
[-]
If combobox1.text = 'Juan' then
begin
Query1.sql.text:='select * from mitabla';
query1.open;
end
else
Showmessage('no tiene acceso a esta tabla');
end;
Como dije, hay muchas formas de hacerlo, esconder botones, no dar acceso a forms, inhabilitar componentes, etc., etc.
Saludos