Problem mit dem ClickEvent beim PopupMenu

[k0aru]

braucht nicht mehr zu antworten! habs hinbekommen

Delphi-Quellcode:

  private
    procedure Changer(Sender: TObject);

{ ... }

procedure TMain.Changer(Sender: TObject);
begin
  ShowMessage('Bla');
end;

procedure DBDump;
var i,j,k:integer;
    m:TMenuItem;
begin
  j:=0;
  with Options.Table do
    begin
      First;
      for i:=1 to RecordCount do
        begin
          with Main.DBSwitch do
            begin
              m:=TMenuItem.Create(nil);
              Items.Add(m);
              m.OnClick:=Main.Changer; // Hier wird das Event hinzugefügt
              Items[Items.Count-1].Caption:=Options.lbled_ident.Text;
            end;
          Inc(j);
          Next;
        end;
    end;
end;