title: Change color of ListBox Item when Clicked on this Item
body: <p>So I have a ListBox on form, which consists of different links, all of them are blue and underlined (like html links, you know). When user clicks one of the Items(links), it opens in a default browser, but I also want that particular link to change color to purple. Here's what I have in OnClick procedure now:</p>
  
  <pre><code>procedure TForm1.ListBox1Click(Sender: TObject);
  
  begin
  ShellExecute(Handle, 'open', PAnsiChar(ListBox1.Items[ListBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL);
  end;
  </code></pre>