Hierfür bietet sich die Tag Eigenschaft der MenuItem an.
Gib jeden MenuItem eine eigene Nummer. (Praktischerweise von 1 aufwärts)
Anschließend würde ich die URLs in ein Array of String packen.
nun weisst du allen MenuItems ein "Onclick" ereignis zu. (alle die selbe)
Delphi-Quellcode:
procedure TForm1.N1231Click(Sender: TObject);
const
URLs :
array[1..3]
of String = ('
http://www.google.de','
http://www.google.com','
http://www.gmx.de');
begin
Shellexecute(
handle,'
open',PChar(URLs[TMenuItem(sender).Tag]),'
','
',sw_show);
end;