[[Caral]]

Hola
Digamos que quieres tener algunas consultas preestablecidas y que quieres tomarlas cuando quieras.
Hagamos un ejercicio (JAMAS lo he hecho, solo se me ocurre):

Creamos un procedimiento que nos cargue los string de sql:

Código Delphi [-]
Procedure TForm1.SQLDatos;
var sql1, sql2, sql3 : String;
Begin
  sql1:= 'Select * From MiTabla1';
  sql2:= 'Select micampo1, micampo2 from mitabla2';
  sql3:= 'Select Loquesea From mi tabla3';
end;

Bien ahora lo uso:

Código Delphi [-]
ZQuery1.Sql.Text:= SQLDatos(sql1);
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox1.Items.Add(nombre);  //primer listBox
 zQuery1.Next;
 end;
ZQuery1.Close;  // cierro
ZQuery1.Sql.Text:= SQLDatos(sql2);
ZQuery1.Open;
 While not zQuery1.eof do
 begin
 bsSkinListBox2.Items.Add(nombre); // segundo listBox
 zQuery1.Next;
 end;

Es posible que con una funcion camine mejor ya que estara buscando la variable, me imagino que por ahi va la cosa.
Solo opino, desde lo mas profundo de mi desconocimiento.
Saludos