[Alexo]

Создаешь один OnClick
и при создании вешаешь его на каждого путем

Labels[i].Click := OnClick - твоя процедура.

[ApplicatiOn]

шикарно просто ) спасибо

p.s. а как контролировать позицию?

with labels[i] do
begin

left..
top
caption

end;
... ?

так?

[ApplicatiOn]

а как отобразить сам компонент на форме?

[lmikle]

Сообщение от ApplicatiOn

а как отобразить сам компонент на форме?

Код:

Componentt.Parent := Form1;

[ApplicatiOn]

а чрз массив?

[lmikle]

точно также, только за место Componentt обращаешься к элементу массива. За место Form1 - тот контейнер, на котором должны появиться контролы (форма, фрейм, панель и т.п.).

Код:

var
 I : Integer;
begin
  For I := Low(Labels) To High(Labels) Do Labels[i].Parent := Form1;
end;

[ApplicatiOn]

так к каждому эементу обращаться ужас будет просто

[lmikle]

Сообщение от ApplicatiOn

так к каждому эементу обращаться ужас будет просто

А что ты хотел?
Если тебе для всех надо изменить какое-либо свойство, то ко всем и надо обращаться.