Dynamiczne PopupMenu w komponencie StringGrid

Witam

Dziobie komponent pochodny od TStringGrid i nie wiem jak
mam podczepić procedury do TPopupMenu.
Podmeni tworzę dynamicznie i to mi działa.
Widać je na ekranie w czasie działania programu.

A może nie tędy droga?

Pozdrawiam
Janusz

     PopMenu := TPopupMenu.Create(self);
     MenuItem_dru := TMenuItem.Create(PopMenu);
     MenuItem_dru.Caption := 'Drukowanie zawartości tabeli';
??     MenuItem_dru.OnClick := PrintSG;  
     PopMenu.Items.Add(MenuItem_dru);
     MenuItem_N1 := TMenuItem.Create(PopMenu);
     MenuItem_N1.Caption := '-';
     PopMenu.Items.Add(MenuItem_N1);
     MenuItem_exp := TMenuItem.Create(PopMenu);
     MenuItem_exp.Caption := 'Export tabeli do CSV exel';
??     MenuItem_exp.OnClick := ExportToCSV 
     PopMenu.Items.Add(MenuItem_exp);

///  sposób deklaracje
  public
        constructor Create(AOwner : TComponent); override;
        destructor Destroy; override;
        procedure AutoSizeCol;
        procedure AutoSizeRow;
        procedure PrintSG;
        procedure ExportToCSV ( FDirNameExport : String );
  published

procedure ExportToCSV (Sender: TObject);

To nie działa.
PrintSG też nie.

dasej napisał(a)

To nie działa.
PrintSG też nie.

co ty nie powiesz