Создание нескольких объектов с одинаковыми обработчиками

[boget]

Подскажите пожалуйста, вот у меня есть объект класса TLabel, его использую как ссылку (при наведении и отводе курсора мыши меняет цвет) у него есть обработчики событий:

procedure TForm2.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,'open','http://ya.ru',nil,nil,SW_SHOW);
end;

procedure TForm2.Label4MouseLeave(Sender: TObject);
begin
  label4.Font.Color := clHighlight;
end;

procedure TForm2.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  label4.Font.Color := $b60e00;
end;

Хочу добавить еще 40 объектов на форму класса TLabel с такими же обработчиками. Можно как-то присвоить имеющиеся обработчики другим объектам, меняя при этом только ссылку в процедуре TForm2.Label4Click?

[BARNEY]

в свойствах объекта выставите ссылку и все.

[_SERGEYX_]

procedure TForm2.Label4Click(Sender: TObject);
begin
   ShellExecute(handle,'open',PChar((Sender as TLabel).Caption),nil,nil,SW_SHOW);
end;

Подключи ко всем Label-ам

[boget]

Спасибо за подсказки! Все сделал, только вместо Caption задал hint, поскольку Caption отличается от ссылки (там русское слово), еще погуглил на тему Sender as Tlabel. Поставил в events эти процедуры разным Label'ам, указал у них hint, вот что получилось в итоге:

procedure TForm2.LabelClick(Sender: TObject);
begin
  ShellExecute(handle,'open',PChar((Sender as TLabel).hint),nil,nil,SW_SHOW);
end;

procedure TForm2.LabelMouseLeave(Sender: TObject);
begin
  (Sender as TLabel).Font.Color := clHighlight;
end;

procedure TForm2.LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  (Sender as TLabel).Font.Color := $b60e00;
end;