[[Caral]]

Hola
Ese no es problema, aqui tuve un error revisalo otra vez, puse que se guardara el dato del combobox y no de la variable.
Si usas el codigo que puse no haria falta la variable para nada pero el campo seria mas grande para contener la palabra completa, osea asi:

Código Delphi [-]
  // aqui se envia el dato al dbgrid
    form4.clientdataset1.Append;
    
    form4.clientdataset1['serie'] := form4.serie.Text;
    form4.clientdataset1['documento']:=form4.documento.Text;
   form4.clientdataset1['folio'] := form5.folio.Text;
    form4.clientdataset1['codigo'] := form5.codigo.Text;

    form4.clientdataset1['nombre'] := form5.nombre.Text;
    form4.clientdataset1['cantidad'] := form5.cantidad.Text;
    form4.clientdataset1['precio'] := form5.precio.Text;
     form4.clientdataset1['unidad']:=form5.unidad.Text;
    form4.clientdataset1['id']:=form5.id.Text;
     form4.clientdataset1['importe']:= floatToStr( StrTofloat(form5.cantidad.Text) * StrTofloat(form5.precio.Text) );

     form4.clientdataset1['fecha'] := form4.fecha.Date;
    form4.clientdataset1['TIPO'] := Combobox1.text;  // aqui esta el dato (entrada o salida)

    form4.clientdataset1.Post;

Si usas el dato de la letra entonces seria asi:

Código Delphi [-]
var A : String;
begin
   // aqui se define si es entrada o salida dependiendo del combobox
   If combobox.text = 'Entrada' then
   begin
   A:= 'E';
  end
  else begin
  A:= 'S';
  end;
  // aqui se envia el dato al dbgrid
    form4.clientdataset1.Append;
    
    form4.clientdataset1['serie'] := form4.serie.Text;
    form4.clientdataset1['documento']:=form4.documento.Text;
   form4.clientdataset1['folio'] := form5.folio.Text;
    form4.clientdataset1['codigo'] := form5.codigo.Text;

    form4.clientdataset1['nombre'] := form5.nombre.Text;
    form4.clientdataset1['cantidad'] := form5.cantidad.Text;
    form4.clientdataset1['precio'] := form5.precio.Text;
     form4.clientdataset1['unidad']:=form5.unidad.Text;
    form4.clientdataset1['id']:=form5.id.Text;
     form4.clientdataset1['importe']:= floatToStr( StrTofloat(form5.cantidad.Text) * StrTofloat(form5.precio.Text) );

     form4.clientdataset1['fecha'] := form4.fecha.Date;
    form4.clientdataset1['TIPO'] := A;  // aqui esta el dato (entrada o salida)

    form4.clientdataset1.Post;

Revisa y me dices.
saludos