ayuda con este procedimiento

[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?