popup menu der skal

Noget i retningen af dette? Jeg antager at du har en tom popup-menu liggende på din form.

procedure LoadTxtToMenuItem(const aFileName : string; aPopupMenu : TPopupMenu);
var
  fp : textfile;
  st : string;
  SubMenuItem : TMenuItem;
begin
  if not FileExists(aFileName) then
    raise Exception.CreateFmt('File %s not found!',[aFileName]);

  assignfile(fp,aFileName);
  reset(fp);
  try
    while not eof(fp) do begin
      readln(fp,st);
      SubMenuItem := TMenuItem.Create(aPopupMenu);
      if st = '' then // Insert - separator
        SubMenuItem.Caption := '-'
      else
        SubMenuItem.Caption := st;

      // Hvis de skal udføre et eller andet, så skal du definere en OnClick-event
      // såsom SubPopupMenu.OnClick := OnClickProcedure; (af typen TNotifyEvent)

      aPopupMenu.Items.Add(SubMenuItem);
    end; // while
  finally
    closefile(fp);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadTxtToMenuItem('c:\boot.ini',PopupMenu1);
end;

Har ovenstående hjulpet?