como evitar varios Query.open..?

[Niiña]

oks. necesito realizar varias consultas select y no quisiera repetir varias veces el mismo codigo.

este es el primero:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('select max(Tabla1.id)+1 FROM tabla1');
Query.Open;
variable1:= Query.Fields[0].AsInteger;

El segunto select es:

Query.Close;
Query.SQL.Clear;
Query.SQL.Add('SELECT tabla2.id2 from tabla2,tabla3,tabla4,tabla5 where tabla2.id2=tabla3.id3 and tabla4.id4=tabla5.id5 ');
Query.Open;
variable2:=Query.FieldByName('id2').AsInteger;

El nombre de las tablas es un ejemplo.
Asi realizo 4 consultas select pero es mucho. Como puedo hacer para realizar las 4 consultas y no repetir el mismo procedimiento 4 veces.. o una consulta select se tiene que realizar ajuroo con esos pasos osea colocar el Query.close, luego el SQL.clear, el ADD, el open y para otra consulta lo mismo y asi sucesivamente