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.