como evitar varios Query.open..?

[Niiña]

Hola.. tengo un problemitaa quisieraa disminuir mi codigo. estoy trabajando la base de datos en firebird
y tengo varios select ejemplo:

los componentes que estoy utilizando son: TIBconnection, TSQLtransaction,TSQLQuery, TDataSource.

Código SQL [-]
Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT tabla2.campo  from tabla1, tabla2,tabla3 where tabla1.campo=tabla2.campo1  );
Query.Open;
variable:=Query.FieldByName('campo').AsInteger;

tengo varios select de esta manera, hay una manera de evitar colocar varias veces este mismo código para obtener una consulta.
la razon de cambiarlo es porque realizo el mismo codigo para las 4 consultas y empezo a darme error:

El error es:

conexion:PrepareStatement
Dynamic sql error
sql error code= -104
Token unknown - line 1 column 280
and.