[champy]

Supongo que habrán distintas formas de hacerlo pero yo utilizaría la función FindComponent('NombreDelComponente'), algo así.

Código Delphi [-]
Procedure CambiarHeight;
var
  Shap : Tshape;
  N : Integer;
begin
  For N := 1 to 5 do
  begin
    (FindComponent('Shape'+IntTosTr(N)) as Tshape).Height := 100;
  end;
End;