[[cHackAll]]

Con tu permiso maestro;

Código Delphi [-]
var Item: TMenuItem;
 
...

 QTemp.SQL.Text := 'Select TuCampo From TuTabla';
 QTemp.Active := True;
 while not QTemp.Eof do
  begin
   Item := TMenuItem.Create(PopupMenu1);
   Item.Caption := DBGrid1.Fields[0].Text;
//   Item.OnClick := ...
   PopupMenu1.Items.Add(Item);
   QTemp.Next;
  end;

Saludos