<!--CodeS-->
procedure TForm1.FormCreate(Sender: TObject);
var
iCnt: Integer;
begin
for iCnt := 1 to 100 do begin
Myshape[iCnt] := TShape(FindComponent('Shape' + IntToStr(iCnt)));
end;
end;
<!--CodeE-->

1100 개나 되는 컴포넌트라면 차라리 동적 생성 하는 게 낫지 않을까요? 일일이 손으로 생성하는 것도 만만치 않은 일일 것 같습니다.



procedure TForm1.FormCreate(Sender : TObject);
var
i : integer;
begin
for i := low(MyShape) to high(MyShape) do
begin
MyShape[i] := TShape.Create(Self);
// 적당한 위치, 크기 할당 코드들 (ini 등에서 읽어오거나...)
end;
end;

노정윤님이 얘기하신대로 저도 동적생성을 추천합니다.

하지만 굳이 위와같은 방식대로 하고자한다면

이윤도 님께서 하신 방법이 있습니다만..

FindComponent함수의 원리를 이해하면 위 방식이 좀 비효율적인 방식입니다.
Form위에 Component의 갯수가 많으면 많을수록

FindComponent함수내에서는
Form위에 올려진 Component의 갯수만큼 루프를 돌면서 주어신 문자열과 같은 compoent를 찾습니다.
두번호출하면 또다시 처음부터 루프를 돌게되죠
100번호출하면 100번을 처음부터 루프도는것을 반복하게 되는것입니다.
항상 처음부터 끝까지 루프 도는것은 아니지만 매우 비효율적이지요

루프를 딱 한번만 돌아도 위 컴포넌트를 모두 찾을수 있을것입니다.


var
MyShape: array[1..1000] of TShape;

procedure TForm1.FormCreate(Sender: TObject);
var
idx,num: Integer;
sCompName: String;
begin
//
for idx:=0 to ComponentCount-1 do
begin
if Components[idx] is TShape then
begin
sCompName:=Components[idx].Name;
sCompName:=RightStr(sCompName,Length(sCompName)-5);
if TryStrToInt(sCompName,num)then
begin
MyShape[num]:=TShape(Components[idx]);
end;
end;
end;
end;

대단히 감사합니다. 해결했습니다.역쉬..고수님들은 틀리십니다.