Segue os fontes completos para vc analisar

var
  _logslista: tstrings;
  i:integer;
  x:integer;
begin
  inherited;
  _logslista := tstringlist.create;
  try
    dm.Progresso_Iniciar('Carregando tabela, aguarde...');
    TabFinanceiro.open;
    TabFinanceiro.first;
    Fin_Mov.DisableControls;
    tabparc.Open;
    tabParc.DisableControls;
    _logslista.add('LOG;EMISSAO;CODIGO_CLIENTE;NOME;NUMERO_DOC;VENCIMENTO;VALOR;CONTA_ID;PLANO_ID;SUBPLANO_ID;MODALIDADE_ID');
    x:=tabfinanceiro.RecordCount;
    i:=1;
    while not TabFinanceiro.eof do
    begin
      dm.Progresso_msg('Processando: '+inttostr(i)+'/'+inttostr(x)+' '+TabFinanceiroNOME.value);
      tabcli.close;
      tabcli.Params[0].asinteger := TabFinanceiroCODIGO_CLIENTE.asinteger;
      tabcli.open;
      if tabcli.isempty then
      begin
        _logslista.add('NAO-ENCONTRADO;' + TabFinanceiroEMISSAO.AsString + ';' + TabFinanceiroCODIGO_CLIENTE.AsString + ';' + TabFinanceiroNOME.AsString + ';' + TabFinanceiroNUMERO_DOC.AsString + ';' + TabFinanceiroVENCIMENTO.AsString + ';'
          + TabFinanceiroVALOR.AsString + ';' + TabFinanceiroCONTA_ID.AsString + ';' + TabFinanceiroPLANO_ID.AsString + ';' + TabFinanceiroSUBPLANO_ID.AsString + ';' + TabFinanceiroMODALIDADE_ID.AsString);
      end
      else
      begin
        if TabFinanceiroNOME.value <> TabFinanceiroNOME.value then
          _logslista.add('NOME-DIFERENTE;' + TabFinanceiroEMISSAO.AsString + ';' + TabFinanceiroCODIGO_CLIENTE.AsString + ';' + TabFinanceiroNOME.AsString + ';' + TabFinanceiroNUMERO_DOC.AsString + ';' + TabFinanceiroVENCIMENTO.AsString +
            ';' + TabFinanceiroVALOR.AsString + ';' + TabFinanceiroCONTA_ID.AsString + ';' + TabFinanceiroPLANO_ID.AsString + ';' + TabFinanceiroSUBPLANO_ID.AsString + ';' + TabFinanceiroMODALIDADE_ID.AsString)
        else
        begin


          // Conta
          Fin_Mov.insert;
          Fin_Movdt_emissao.value := strtodate(TabFinanceiroEMISSAO.value);
          Fin_Movhistorico_narrativa.value := 'CONTAS A RECEBER';
          Fin_Movfin_operacao.value := 'C';
          Fin_Movnumero_documento.value := TabFinanceiroNUMERO_DOC.value;
          Fin_Movpossui_instrucao_protesto.value := 'N';
          Fin_Movvalor.value := 0;
          Fin_Movcancelado.value := 'N';
          Fin_Movsituacao.value := 'P';
          Fin_Movpessoa_id.value := TabFinanceiroCODIGO_CLIENTE.asinteger;
          Fin_Movperiodicidade.value := 'V';
          Fin_Movempresa_id.value := dm.Empresaid.value;
          Fin_Movnota_pontodevenda_id.value := dm.PontodeVendaid.value;
          Fin_Movfin_planoconta_id.value := strtointdef(TabFinanceiroPLANO_ID.value, 10);
          Fin_Movfin_subplanoconta_id.value := strtointdef(TabFinanceiroSUBPLANO_ID.value, 102);
          Fin_Movtransferencia.value := 'N';
          Fin_Movfin_centrocusto_id.value := 1;
          Fin_Mov.post;

          // Parcela
          tabParc.insert;
          tabParcfin_mov_id.value := Fin_Movid.value;
          tabParcdata_competencia.value := Fin_Movdt_emissao.value;
          tabParcvencimento.value := strtodate(TabFinanceiroVENCIMENTO.value);
          tabParcparcela.value := 1;
          tabParcnumero_doc_parc.value := TabFinanceiroNUMERO_DOC.value;
          tabParcparcela_situacao.value := 'P';
          tabParctitulo_descontado.value := 'N';
          tabParcsituacao_entrega_doc.Clear;
          tabParcfin_conta_id.value := strtointdef(TabFinanceiroCONTA_ID.value, 2);
          tabParcfin_modalidade_id.value := strtointdef(TabFinanceiroMODALIDADE_ID.value, 15);
          tabParcvalor_parcela.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
          tabParcvalor_final.value := strtofloat(formatavalor(TabFinanceiroVALOR.value));
          tabParc.post;

        end;
      end;

      TabFinanceiro.next;
      inc(i);
    end;
    Fin_Mov.enableControls;
    Fin_Mov_x_Parcelas.enableControls;
    tabParc.enableControls;
    tabParc.Close;
    TabFinanceiro.Close;
  finally
    _logslista.SaveToFile(ExtractFilePath(Application.ExeName) + 'logs_importacao_financeiro.csv');
    showmessage(ExtractFilePath(Application.ExeName) + 'logs_importacao_financeiro.csv');
    FreeAndNil(_logslista);
    DM.Progresso_Fechar;
  end;