Duda existencial

[MaMu]

Hola, tengo una duda existencial, a ver si me logro explicar bien

Yo tengo un Form, con 10 Label, que van de Label1 a Label10 respectivamente, hay alguna forma en la que yo pueda asignar el caption a todas ellas en un solo procedimiento? pongo un ejemplo:

procedure RellenaCaptions(Texto:string);
var n:integer;
begin
 for n:=1 to 10 do
   Label[n].caption:=Texto;
 end;
end;

Ya que, podria hacer lo siguiente

procedure RellenaCaptions(Texto:string);
var n:integer;
begin
 for n:=1 to 10 do
   TLabel(components[n]).caption:=Texto;
 end;
end;

Y lo tendria resuelto, pero mi problema es que, los Labels estan todos cambiados de nombre a desc1,desc2,desc3......desc10 y no se me ocurre como hacerlo.

Saludos