Массив что ли...

[Черничный]

К примеру у меня есть десяток label: label1, label2... label10.
При наведении на любую, наведенная label должна подчеркиваться. Можно создать процедуру с описанием подчеркивания при наведении. Но как обратится, типа массива как в java script

[Баламут]

Просто все лэйблам назначь один обработчик OnMouseEnter и OnMouseLeave.

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
(Sender as TLabel).Font.Style :=
(Sender as TLabel).Font.Style + [fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
(Sender as TLabel).Font.Style :=
(Sender as TLabel).Font.Style - [fsUnderline];
end;

[Черничный]

не понятно, вот это для первой label, куда здесь вторую и третью... писать?

[Баламут]

Выделяешь все остальные лэйблы и для события OnMouseEnter в выпадающем списке выбираешь Label1MouseEnter.

[Stilet]

куда здесь вторую и третью... писать?

Эту процедуру-обработчик Назначь всем лабелям А уж она сама разберется в какой лабель ты мышой ткнул.