Label[i]

[Jasocul]

Könnte dich das Folgende auf den richtigen Weg führen:

Delphi-Quellcode:

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

Achtung, der Source ist nur einfach mal hingetippt.