Problema al Almacenar Datos de LookUpComboBox, en una BD Firebird

[day_eli]

Hola Buen día a todos, en un formulario, tengo varios TEdit, LookUpComboBox, el problema es que al guardar los datos en la BD, esto me genera un Error.
'INVALID VARIANT TYPE CONVERSION'

El código que utilizo en el Botón Guardar es el Siguiente:

Código Delphi [-]
procedure TFrmDepositos.BtnGuardarClick(Sender: TObject);
begin
  if Accion='Guardar' then tbldepositos.Insert;
  if Accion='Editar' then tbldepositos.Edit;
  tbldepositos.FieldByName('codigo').asstring:=(txtcodigo.Text);
  tbldepositos.FieldByName('cod_estado').AsString:=vartostr(cmbestado.KeyValue);
  tbldepositos.FieldByName('cod_ciudad').AsString:=vartostr(cmbciudad.KeyValue);
  tbldepositos.FieldByName('cedresponsable').AsString:=vartostr(cmbresponsable.KeyValue);
  tbldepositos.FieldByName('f_creacion').AsString:=DateToStr(Date);
  tbldepositos.FieldByName('estatus').AsString:=cmbestatus.Text;
  tbldepositos.FieldByName('direccion').AsString:=txtdireccion.Text;
  tbldepositos.Post;
  tbldepositos.Close;
  tbldepositos.Open;
  Application.MessageBox('Datos Guardados','Información',MB_OK+MB_ICONINFORMATION);
  btnnuevo.Click;
end;

En varios formularios me ha pasado lo mismo, lo que he hecho es quitar el DBLookUpComboBox y colocar un TEdit...Lo malo es que ahora en el formulario que estoy trabajando tengo varios DBLookUpComboBox y es necesario utilizar esta herramienta.