1:
2:
3:

  private    { Private-Deklarationen }
   procedure MyPopupHandler(Sender: TObject);
// ...					

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.MyPopupHandler(Sender: TObject);
begin 
// soll in der aktuellen Spalte/Zeile des StringGrid die 
// Caption des PopUpMenu-Punktes einfügen
   if(Sender is TMenuItem) then 
    StringGrid1.Cells[17,Row1]:=(Sender as TMenuItem).Caption;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

procedure addMenu(m:TPopupMenu;fname:string);
var sl:TStringList; i:integer; t:TMenuItem;
begin if fileexists(fname) then
        begin sl:=TStringList.Create; sl.LoadFromFile(fname);
           try
              // Löschen und Freigeben aller MenuItems ab dem dritten
              for i := 2 to m.Items.Count-1 do
                begin  t := m.Items[2]; // ersten Eintrag im Menü holen
                       m.Items.Delete(2); // Eintrag LÖschen
                       FreeAndNil(t); // und zuletzt freigeben
                end;
              for i:=0 to sl.Count-1 do // Zeile als Menüpunkte verwenden
               if Trim(sl[i])<>'' then // nicht leere Zeile
                begin t := TMenuItem.Create(m); 
                      t.Caption := sl[i];
                      // t.OnClick:=.... keine Ahnung ???  war der Ausgangspunkt
                      // korrektur ist:
                      //********************************
                      t.OnClick := Form1.MyPopupHandler; 
                      m.Items.Add(t);
                end;
           finally sl.free; end;
        end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var p:TPoint; i:integer; // Col1 und Row1 sind global deklariert
begin stringgrid1.MouseToCell(x, y, Col1, Row1);      GetCursorPos(P);
         if Col1=17 then // PopUp nur 17.Spalte
          begin addMenu(PopupMenu6,pdir+'BemerkungenTB.txt');// Menü aus Dateizeilen
             // pdir ist das Programmverzeichnis+Backslash
             // alte Zeilen wurden gelöscht:
             //   for i:=1 to PopUpMenu6.Items.Count-1 do
             //    PopUpMenu6.Items.OnClick:= MyPopUpHandler; // geht scheinbar nicht
             PopupMenu6.Popup(P.X, P.Y); // Bemerkung aus Liste einfügen            
          end;
end;					

1:

function NewItem(const ACaption: string; AShortCut: TShortCut; AChecked, AEnabled: Boolean; AOnClick: TNotifyEvent; hCtx: Word; const AName: string): TMenuItem;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

  private
    procedure MyPopupHandler(Sender: TObject);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.MyPopupHandler(Sender: TObject);
begin
   if(Sender is TMenuItem) then
     showmessage(TMenuItem(Sender).Caption);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PopupMenu1.Items.Add(NewItem('Item1',0,False,True,MyPopupHandler,0,''));
  PopupMenu1.Items.Add(NewItem('Item2',0,False,True,MyPopupHandler,0,''));
end;