ClientDataSet + providername como Inserir novo Registro

Boa tarde pessoal preciso de ajuda
Seguinte
Preciso trabalhar da seguinte forma

Grid > dataSource > ClienteDataSet > providerName > query

ate ai beleza
executo o sql e ele mostar no grid os dados
o problema que estou enfrentando é ao inserir um novo registro
estou fazendo assim
cdsTeste.Insert;
cdsTeste.FieldByName('cor').AsString:='Vermelho '+IntToStr(i);
cdsTeste.FieldByName('codigo').AsInteger:=i;
cdsTeste.Post;

porem ao receber o valor no campo:
cdsTeste.FieldByName('cor').AsString:='Vermelho '+IntToStr(i);
aconteceo seguinte erro
Number is out of range

o que estou fazendo de errado ??