Control de Usuarios segun Tablas

[[Caral]]

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