Wybór strony internetowej ListBox

Witam, potrzebuję napisać program i mam pewien problem.

Mam na formie ListBox i Button. Klikając na przycisk program ma uruchomić domyślną przeglądarkę i stronę internetową, którą wybieramy z listbox.

kod otwierający przeglądarke z wpisaną ręcznie stroną internetową:

ShellExecute(self.WindowHandle,'open','www.google.pl',nil,nil, SW_SHOWNORMAL);

Jak przerobić ten kod??

Wiem ,że są to podstawy jednak dopiero zaczynam z delphi ;]

Proszę o pomoc :)

Ponieważ jako początkujący zapewne chcesz się czegoś nauczyć, więc gotowca ci nie dam, ale:

• zobacz sobie: http://4programmers.net/Forum/Delphi_Pascal/172581-delphiodczyt_tekstu_do_okreslonego_znaku?p=704739#id704739
• w opisanym tam przykładzie w zdarzeniu OnClick zmieniasz tylko zapisywanie do edita na wywołanie funkcji ShellExecute.

Dzięki na pewno się przyda ;]

Marcin: podpowiem tylko, że ListBox ma wlasności Items oraz ItemIndex. Teraz już sobie powinieneś sam poradzić.

procedure TForm1.Button1Click(Sender:TObject);
begin
  with ListBox1 do if ItemIndex>-1 then ShellExecute(self.WindowHandle,'open',PChar(Items[ItemIndex]),nil,nil,SW_SHOWNORMAL);
end;

A ja też się czegoś ciekawego przy okazji nauczyłem. Mianowicie tego, że po with ... do instrukcje z if nie powdują konieczności użycia
dodatkowo begin, jeżeli mamy tylko jedną istrukcję poza warunkową. Czyli taki kod jak poniżej również będzie prawidłowo skompilowany

  with ProgressBar1 do
    if Max = 10 then
    Min := 1;

olesio, wybacz, ale troszkę nie rozumiem :(

for x := 1 to 5 do
  if x > 3 then
    Caption := x;

if x < 3 then 
  for y := 1 to 5 do
    if y < 3 then
      Caption := x;