Recorrido por objetos en forma de array.

[jorge82]

Hola, así puedes recorrer los componentes en un form:

Código Delphi [-]
var
  I: Integer;
begin
  for I := 0 to ComponentCount-1 do
  begin
    if Components[i] is TLabel then
    begin
      TLabel(Components[i]).Caption := 'Titulo' + IntToStr(I);
    end;
  end;
end;

Espero te sirva.