вывод лейблов

[RISK-91]

Проблема в общем такая: Мне надо организовать вывод из масива в лейблы, индекс ячейки масива соответствует номеру label, и я хотел сделать что то на пободе такой конструкции только не знаю как
for i:=1 to n do
label.i.caption:=mas[i];
как правильно записать??

[ArtGrek]

var
 i: integer;
 Labels: array [1..10] of Tlabel;
begin
 for i:= 1 to 10 do
 begin
  Labels[i]:=Tlabel.Creat(self);   // создание массива лабелов
  with Labels[i] do  // настроика его своиств
  begin
   Parent:=Form1 // ето обязателно, указивает куда ты добавляеш компонент, если не написат он не появица
   Left:=10*i;
   Top:=30;
   ...            //все настроики создаваемых лабелов должен впишвать сам сюда
  end;
 end;
 for i:= 1 to 10 do
  Labels[i].Caption:= IntToStr(Mass[i]);
end;

[RISK-91]

Это получается код сам создает лэйблы.

Parent:=Form1 // ето обязателно, указивает куда ты добавляеш компонент, если не написат он не появица
Left:=10*i;
Top:=30;
... //все настроики создаваемых лабелов должен впишвать сам сюда

а какие самые основные свойства чтобы он просто выводил? или все надо.

Left:=10*i;
Top:=30;

С этим ошибку чтения памяти

[RISK-91]

Это получается код сам создает лэйблы.

Parent:=Form1 // ето обязателно, указивает куда ты добавляеш компонент, если не написат он не появица
Left:=10*i;
Top:=30;
... //все настроики создаваемых лабелов должен впишвать сам сюда

а какие самые основные свойства чтобы он просто выводил? или все надо.

Left:=10*i;
Top:=30;

С этим ошибку чтения памяти

[Скандербег]

Другим вариантом ...

[Скандербег]

Другим вариантом применить поиск, если компоненты уже размещены на форме:

var
  I, J : Integer;
  S : string;
begin
  for I := 1 to n do begin
    S := IntTostr(I);
    for J := 0 to ComponentCount-1 do
      if (Components[J] is TLabel) and (TLabel(Components[J]).Name = 'Label'+S) then
        TLabel(Components[J]).Caption := mas[I];
  end;
end;