var 
  s :  string ;
  i : longint;
  tm : TMenuItem;
  Click : TNotifyEvent;
 begin 
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'main.ini');
 for  i:= 0   to  fs.MainMenu1.Items.Count- 1   do   begin 
     s := IniFile.ReadString('Menu1', 'Item'+IntToStr(i),'');
     tm := TMenuItem.Create(NSet);
     tm.Caption := Piece(s,';', 2 );
     tm.Name:=Piece(s,';', 1 );
 //причем имя присваевается повторное которое уже есть в программе но вот клик не работает... 
 //     tm.OnClick:=Click(tm.Find(Piece(s,';',2))  );; 
 //     tm.OnClick := Piece(s,';',1);  
 //строка то из ини файла считывается но вот присваевается как строка.. а не как процедура... 
 //а для каждого пункта меню процедуры разные... 

     NSet.Add(tm);
    end ;
   IniFile.Free;
   end ;

 procedure  TForm1.MyClick(Sender: TObject);
 begin 
   ShowMessage('Wow!');
 end ;
...
  tm.OnClick := MyClick;
...

 type 
  TfrmMain =  class (TForm)
    Button1: TButton;
     procedure  Button1Click(Sender: TObject);
   private 
   public 
   published 
     procedure  Dummy;
   end ;

  TProc =  procedure   of   object ;

 var 
  frmMain: TfrmMain;

 implementation 

 {$R *.dfm} 

 procedure  TfrmMain.Button1Click(Sender: TObject);
 var  M:TMethod;
    Proc: TProc;
 begin 
  M.Data:=Pointer(Self);
  M.Code:=Self.MethodAddress('Dummy');
  Proc := TProc(M);
  Proc;
 end ;

 procedure  TfrmMain.Dummy;
 begin 
  ShowMessage('Привет');
 end ;

...
tm.OnClick:=NSetClick;
...

 procedure  NSetClick(Sender: TObject);
 var 
 s,ss :  string ;
 i : longint;
 M:TMethod;
 Proc: TProc;
 begin 
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'main.ini');
   for  i:= 0   to  MainMenu1.Items.Count- 1   do   begin 
     s :=IniFile.ReadString('Menu1', 'Item'+IntToStr(i),'');
     ss:=Piece(s,';', 3 );
     M.Data:=Pointer(Self);
     M.Code:=Self.MethodAddress(ss);
     Proc := TProc(M);
     Proc;
    end ;
 end ;

 procedure  NkSetClick(Sender: TObject);
 var 
 s,s1,Value :  string ;
 i : longint;
 M:TMethod;
 Proc: TProc;
 begin 
 IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'main.ini');
 i:=TMenuItem(Sender).MenuIndex;
 s := IniFile.ReadString('Menu', 'Item'+IntToStr(i),'');
 value:=TMenuItem(Sender).Name; //тут вижу что имя есть 
 s1:=Piece(s,';', 3 );
 M.Data:=Pointer(Self);
 M.Code:=Self.MethodAddress(s1); //вытаскивается имя процедуры NBSClick 
 Proc := TProc(M);
 Proc; //тут процедура запускается 
 IniFile.Free;
 end ;

 procedure  NBSClick(Sender: TObject);
 var  s: string ;
 begin 
   if  tmenuitem(sender).name='tiNN'  then   begin   //а тут имя уже неопределенно!!! 
     s:='r5';
     tiNNClick(Self);
   end 
   else     if  tmenuitem(sender).name='tiNN1  then  
              tiNNClick(Self);
 end ;

TProc =  procedure (Sender: TObject)  of   object ;

Proc(Sender);