[abelg]

Mira, puedes crearte un procedimiento asi:

Código Delphi [-]
procedure ExecuteQuery(qry:TQuery; Sql : String);
begin
  qry.Close;
  qry.SQL.Clear;
  qry.SQL.Add(Sql);
  qry.Open;
end;

Luego a este lo llamas desde los diferentes lugares asi:

Código Delphi [-]
var Sql : string;
begin
  if CheckBox1.Checked then
    sql := 'Select * from inv_clipro'
  else
    sql := 'Select * from inv_productos';
  ExecuteQuery(Query1, Sql);
end;

solo a manera de ejemplo, espero te ayude.
salu2