Vit у меня ещё вопросик возник:
я создаю пункты меню:

procedure TForm1.FormShow(Sender: TObject);
Var
mi:TMenuItem;
ini:Tinifile;
dir:string;
i:integer;
begin
 dir:=getcurrentdir;
 Ini:= TIniFile.Create(dir+'\link.ini');
 ini.ReadSection('link',listbox1.Items);
 Ini.Free;
  for i:=0 to listbox1.Items.Count-1 do
   begin
    mi:=TMenuItem.Create(popupmenu1);
    mi.Caption:=listbox1.Items[i];
    popupmenu1.Items.Add(mi);
    popupmenu1.Items[i].OnClick:=menuclick;
   end;
end;

procedure ppp;
Var
ini:Tinifile;
dir:string;
a,b,c:string;
begin
 dir:=getcurrentdir;
 Ini:= TIniFile.Create(dir+'\link.ini');
 b:=form1.popupmenu1.Items[1].Caption;
 c:=StringReplace(b,'&','',[rfReplaceAll]);
 a:=ini.ReadString('link',c,'');
 WinExec(PChar(a),SW_RESTORE);
 Ini.Free;
end;


procedure tform1.menuclick(Sender: TObject);
begin
WITH Sender AS TMenuItem DO
ppp;
end;

а как узнать на каком пункте был клик и соответственно получить caption пункта на каком был клик?

procedure tform1.menuclick(Sender: TObject);
begin
ShowMessage(TMenuItem(Sender).Caption);
ppp;
end;

Модератор: тема должна соответствовать вопросу, не надо обращатся с просьбой к участнику лично, здесь все участвуют в обсуждении. Меня стоит конкретно спрашивать только в случае если что-то неясно в моём коде или ответе, а твой вопрос общего характера, на него многие могут ответить.

спасибо.....
по поводу того что я обращялся к тебе лично - обращался только потому  что ты даёщ более коректные ответы!
ещё раз спасибо....

Вот, тебе Song ответил, куда уж конкретнее! Мне и добавить нечего, его ответ исчерпывающий!

ok