ayuda con este procedimiento

[microbiano]

tengo el siguiente procedimiento que cual se supone tendria que cargar los registros de una columna en un combo segun el numero de liitacion.

Código Delphi [-]
procedure llena_claves();
  var licitac: variant;
begin
     licitac:='00641321-030-09';//trim(fpropuestas.txtlicitacion.Text);
     with fmodulo.Q_licitac2 do
      begin
       sql.Clear;
       sql.Add('select * from requerimiento');
       sql.Add('where licitacion=:licit');
       Parameters.ParamByName('licit').Value:=Trim(licitac);
       try
         ExecSQL;
        while fmodulo.Q_licitac2.Eof do
          begin
            fpropuestas.cb_clave.Items.Add(fmodulo.Q_licitac2.Recordset.Fields['gpo'].value);
            fmodulo.Q_licitac2.Next;
            exit;
          end;
       except
         on E:EOleException do begin
         MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
        end;
      end;
      end;
end;

el problema es que me manda el siguiente error:

proyect fallo.exe raised exception class EAccesViolation with messaje 'Acces violation at
address 004c942b in module


y en pantalla me muestra este otro.

'Acces violation at
address 004c942b in module 'fallo.exe' Read Of address 000000


alguien tiene una idea del porque puede ser?

espero su ayuda muchas gracias