Error al guardar datos

[Elite237]

Hola, quisiera saber si a alguien al igual que a mi le ha pasado que cuando queire guardar un dato en la bd le sale el siguiente error:

Código Delphi [-]
invalid variant type conversion

mi codigo es el siguiente:

Código Delphi [-]
procedure TForm11.btnAgregarClick(Sender: TObject);
var
i:string;
begin
if form11.table1.locate('preg_clave',edclave.text,[])then
             begin
              edclave.clear;
              showmessage('La clave ya existe')
             end
              else
                begin
                    i:=copy(cmbEvaluacion.text,0,pos('-',cmbEvaluacion.text)-1);
                    i:=copy(cmbSeccion.text,0,pos('-',cmbSeccion.text)-1);
                    form11.table1.insert;
                    form11.table1.fieldvalues['preg_evaluacion']:=i;
                    form11.table1.fieldvalues['preg_secc']:=i;
                    form11.table1.fieldvalues['preg_clave']:=EdClave.text;
                    form11.table1.fieldvalue['preg_descripcion']:=EdPregunta.text;
                    form11.table1.post;
                    cmbEvaluacion.clear;
                    cmbSeccion.clear;
                    edClave.clear;
                    edPregunta.clear;
                    showmessage('Los datos se guardaron con exito!');
                 end;
end;

lo que hago es guardar solamente la clave de una evaluacion, de una seccion y de una clave. Tengo 2 combobox, 2 edit y un boton. Utilizo un database,table y query. Gracias