Label[i]

[Jasocul]

Dann etwas anders:

Delphi-Quellcode:

var
   mylabel : TComponent;
   i : Integer;
begin
   for i := 1 to 10 do
   begin
     myLabel := FindComponent('Label' + IntToStr(i));
     if Assigned(myLabel) then
     begin
       ShapeRot.top := TLabel(myLabel).top;
       ShapeRot.left := TLabel(myLabel).left;
     end;
   end;
end;

Aber Vorsicht! Type-Casting in dieser Form nur, wenn du sicher bist, dass es auch wirklich von diesem Typ ist. Sollte aber eigentlich der Fall sein.