Objetos clonados

[felipe_jfx]

Saludos.
En una forma tengo 12 objetos Shape a los que les debo asignar una altura (height) dependiendo de un resultado obtenido en un ciclo For. Mi inexperiencia me hizo programarlo de la siguiente forma:

FIBConsultaMes.First;
for ciclo:=1 to 12 do
begin
if ciclo=1 then Shape1.height:=FIBConsultaMes.fields[0].value;
if ciclo=2 then Shape2.height:=FIBConsultaMes.fields[0].value;
if ciclo=3 then Shape3.height:=FIBConsultaMes.fields[0].value;
if ciclo=4 then Shape4.height:=FIBConsultaMes.fields[0].value;
if ciclo=5 then Shape5.height:=FIBConsultaMes.fields[0].value;
if ciclo=6 then Shape6.height:=FIBConsultaMes.fields[0].value;
if ciclo=7 then Shape7.height:=FIBConsultaMes.fields[0].value;
if ciclo=8 then Shape8.height:=FIBConsultaMes.fields[0].value;
if ciclo=9 then Shape9.height:=FIBConsultaMes.fields[0].value;
if ciclo=10 then Shape10.height:=FIBConsultaMes.fields[0].value;
if ciclo=11 then Shape11.height:=FIBConsultaMes.fields[0].value;
if ciclo=12 then Shape12.height:=FIBConsultaMes.fields[0].value;
FIBConsultaMes.Next;
end;

Sin embargo sé que puedo hacer algo para reducir el código para no tener 12 IF, algo así como un apuntador al objeto shape 1..12. De antemano agradezco las aportaciones a mi duda.