mmmm podrias usar arrays
ejemplo
array[0] := 'Select.....'
array[1] := 'Select.....'
array[2] := 'Select.....'
array[3] := 'Select.....'
cuando quieras invocarlas haces un for
algo asi...
Código Delphi
[-]
For x := 0 to 3
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(Array[x]);
Query.Open;
If x=0 then
variable1:= Query.Fields[0].AsInteger
if x = 1 then
Variable2:= Query.FieldByName('id2').AsInteger;
if x= 2 then
variable3 := ......
if x=3 then
Variable4 := .....