ayuda con este procedimiento

[rgstuamigo]

El problema que veo es que en la linea que tienes con rojo debes poner el numero de columna y no el nombre , algo así:

Código Delphi [-]
...
While Not Eof Do
 Begin
  {La primer columna tiene indice cero(0),
  la segunda columna tiene indice uno (1)y asi sucesivamente,
  como se quiere cargar el campo "gpo" entonces hacemos asi:}
  fPropuestas.cb_clave.Items.Add(Fields[1].AsString);//se debe cargar como string y no como variant
  Next;
 End;
...

Saludos...

[microbiano]

despues de tanto batallar el problema lo solucione de la siguiente manera por si alguna vez a alguien le puede ayudar este codigo:

Código Delphi [-]
procedure llena_claves();
  var licitac: variant;
begin
     licitac:=trim(fpropuestas.txtlicitacion.Text);
     With fModulo.Q_licitac2 Do
     Begin
          Sql.Clear;
          Sql.Add('select gpo,gen,esp,dif,var from requerimiento');
          Sql.Add('where licitacion=:licit');
          sql.Add('group by gpo,gen,esp,dif,var');
          Parameters.ParamByName('licit').Value:=Trim(Licitac);
          Try
             Open;
             While Not Eof Do
             Begin
                 fpropuestas.cb_clave.Items.Add((fieldByname('gpo').AsString) + ' ' + (fieldByname('gen').AsString) + ' ' + (fieldByname('esp').AsString)+ ' ' + (fieldByname('dif').AsString)+' '+(fieldByname('var').AsString));
                 Next;
             End;
             Close;
          Except
             On E:EOleException Do
             Begin
                MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
             End;
          End;
     End;

end;

Gracias a Todos los que dieron respuesta en su momento. alguien sabe como cerrar este hilo?