Error al Insertar en una Tabla

[river_1]

Buenas a todos,tengo una situacion bien rara al insertar registros en una tabla,dejenme les explico de manera rapida, es un sistema de punto de venta que hice donde tengo una tabla temporal donde guardo las notas, estas notas tienen una columna que se llama comentarios y otra se llama SUB.
En la tabla temporal se guarda muy bien estos campos en su respectiva nota de venta, el problema viene con el corte , es decir, cuando paso la tabla temporal a donde se guardan todos los cortes, si la primer nota de venta tiene valores en cualquiera de las 2 columnas los otros registros les replica el mismo valor en dicha columna haciendo que las notas posteriores guarden ese valor.
Le pongo el codigo delphi para que vean como le hago y ver si no se me esta escapando algo:

Código Delphi [-]
//Se insertan los encabezados de las Notas a la tabla de encabezados de la historia
      consulta3:='Select * From TempVentaHeader';
      QryInsertaHeader.SQL.Clear;
      QryInsertaHeader.SQL.ADD(consulta3);
      QryInsertaHeader.Open;
      QryInsertaHeader.First;
      while not QryInsertaHeader.Eof do
       begin
        TblHeader.Insert;
        TblHeader.FieldByName('Noventa').AsInteger:=QryInsertaHeaderNVENTA.Value;
        tblheader.FieldByName('Fecha').AsDateTime:=QryInsertaHeaderFECHA.Value;
        tblheader.FieldByName('TOTAL').AsFloat:=QryInsertaHeaderTOTAL.Value;
        tblheader.FieldByName('UTILIDAD').AsFloat:=QryInsertaHeaderUTILIDAD.Value;
        tblheader.FieldByName('costo').AsFloat:=QryInsertaHeaderCOSTO.Value;
        tblheader.FieldByName('pago').AsFloat:=QryInsertaHeaderPAGO.Value;
        tblheader.FieldByName('Turno').AsString:=QryInsertaHeaderTURNO.Value;
        tblheader.FieldByName('Cliente').AsString:='Venta al Publico en General';
        tblheader.FieldByName('Cambio').AsFloat:=0;
        tblheader.FieldByName('NOMBRE').AsString:=FRMPASSCORTE.usuario;
        tblheader.FieldByName('TOTALDLLS').AsFloat:=QryInsertaHeaderTOTALDLLS.Value;
        tblheader.FieldByName('PAGODLLS').AsFloat:=QryInsertaHeaderPAGODLLS.Value;
        tblheader.FieldByName('CAMBIO').AsFloat:=QryInsertaHeaderCAMBIODLLS.Value;
        tblheader.FieldByName('CANCELADA').AsString:=QryInsertaHeaderCANCELADA.Value;
        tblheader.FieldByName('Comentarios').AsString:=QryInsertaHeaderCOMENTARIOS.Value;
        tblheader.FieldByName('SUB').AsString:=QryInsertaHeaderSUB.Value;
        tblheader.Post;
        QryInsertaHeader.Next
      end;

Lo raro es que ejecuto el programa linea x linea y el valor me indica en blanco para los registro que no tienen valor pero al abrir la tabla ya tienen valor esas columnas.
Gracias por sus respuestas...