Puesto que en
interface tambien usas
TQuery la unit
DBTables no puede estar en el usues de
implementation sino en el de
interface.
Código Delphi
[-]
unit procedimientos;
.....
interface
uses DBTables;
procedure ejecuta_sql( Q :TQuery);
.....
implementation
uses sysutils,variants,Qdialogs,ExtCtrls;
procedure ejecuta_sql (Q:TQuery);