Как сделать что при нажатии переходило по ссылке???

[quarty]

У меня вопрос, вот нужно сделать много ссылок, около 200, как сделать знаю
ВОТ:

procedure TForm2.Label1Click(Sender: TObject);
begin
Form1.WebBrowser1.Navigate(Label1.C aption);
end;

Но как мне сделать чтоб не 200 такихже текстов писать, а чтоб типа, какая ссылка в тексте по такой переходит.
Или может кто знает как сделать в Memo?
Заранее спасибо

[Кинельски]

объясните подробнее а то я вас не понимаю, у вас один лабел и много текстовых файлов? или один лабел и идин текстовый файл, в котором много ссылок?
и что вы хотите что бы нажимая на лабел был переход по ссылке и при этом старая ссылка заменялась на новую так?

[quarty]

Сообщение от Кинельски

объясните подробнее а то я вас не понимаю, у вас один лабел и много текстовых файлов? или один лабел и идин текстовый файл, в котором много ссылок?
и что вы хотите что бы нажимая на лабел был переход по ссылке и при этом старая ссылка заменялась на новую так?

нет, извините не понятно написал, у меня много Label и у каждого из label в Caption другая ссылка и у меня таких 200 Label и как сделать чтоб не двести раз писать

procedure TForm2.Label1Click(Sender: TObject);
begin
Form1.WebBrowser1.Navigate(Label1.C aption);
end;

А один небольшой код ule будет что при нажатии на Labek номер такой-то,переходит по ссылке Label такойто Caption или можетв Memo как сделать чтоб когда текст выделенный переходит по ссылке одной, когда другой текст выделенный переходит по другой, не знаю понятно или нет написал.

[Баламут]

Для всех лейблов назначь один обработчик клика, в котором напиши следующее:

 Form1.WebBrowser1.Navigate((Sender as TLabel).Caption)

[quarty]

Сообщение от Баламут

Для всех лейблов назначь один обработчик клика, в котором напиши следующее:

 Form1.WebBrowser1.Navigate((Sender as TLabel).Caption)

Агромнейшее спасибо. А как в ListBox так сделать?

[Stilet]

 Form1.WebBrowser1.Navigate(ListBox.Items[ListBox.ItemIndex])

[quarty]

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

 Form1.WebBrowser1.Navigate(ListBox.Items[ListBox.ItemIndex])

Спасибо большое