>>581
例えば、以下の様な関数(メソッドが良いか)を作成するのも吉かと。

function TForm1.GetLabelByIndex( Index : integer ) : TLabel;
begin
 result:=nil;
 case Index of
  1 : result:=Label1;
  2 : result:=Label2;
    ...
 end;
end;
いかがでしょ?