[[Caral]]

Hola

Código Delphi [-]
   QTemp.SQL.Text := 'Select TuCampo From TuTabla';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      PopupMenu1.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;

Saludos