Mine

procedure TfrmEnvia.btnConverterRecebeItensClick(Sender: TObject);
Var Str: TStringList;
S: String;
i, X: integer;
ITEM: Integer;
ITEM_AUX: String;
PEDIDO_AUX: String;

Lista2: TStringList;
Y2: Integer;
Pasta2: String;

Const Campo2: Array[1..12]of String=('CHAVE','FILIAL','NPEDIDO','PRODUTO','DESCRICAO','QUANTIDADE','PRECO_LIQUIDO','SUB_TOTAL','DESCONTO','ACRESCIMO','CODREPRESENTANTE','ITEM');
begin
//**********************************
//TABELA DE ITENSPEDIDO
//**********************************
Lista2 := TStringList.Create;
Lista2.LoadFromFile('P:\PASTAS.TXT');
for Y2 := 0 to Lista2.Count -1 do
begin
  Pasta2 := 'P:'+ Lista2[Y2] + 'dbItensPedido.pdb';
  //Verifica se o arquivo existe
  If FileExists('P:'+ Lista2[Y2] + 'dbItensPedido.txt') Then
  begin
    ITEM := 0;
    dm.TBPALMITENSPEDIDO.Open;
    Str := TStringList.Create;
    Str.LoadFromFile('P:'+ Lista2[Y2] + 'dbItensPedido.txt');

      for i := 0 to Str.Count -1 do
      begin

      if PEDIDO_AUX <> dm.TBPALMITENSPEDIDO.FieldByName(Campo2[3]).AsString then ITEM:=0;

        ITEM := ITEM + 1;
        //Atribui o valor ao ITEM
        ITEM_AUX := IfThen(ITEM < 10, '0' + IntToStr(ITEM), IntToStr(ITEM));
        S := Str[i];
        dm.TBPALMITENSPEDIDO.Insert;

      for X := 1 to 10 do
      begin
        dm.TBPALMITENSPEDIDO.FieldByName(Campo2[X]).AsString := StringReplace(Copy(S,1,Pos(#9,S)-1),'.' , ',',[RfReplaceAll]);
        Delete(S, 1, Pos(#9,S));
      end;
      dm.TBPALMITENSPEDIDO.FieldByName(Campo2[11]).AsString := Copy(S,1,Length(S));
      dm.TBPALMITENSPEDIDO.FieldByName(Campo2[12]).AsString := ITEM_AUX;
      dm.TBPALMITENSPEDIDO.Post;

      PEDIDO_AUX := dm.TBPALMITENSPEDIDO.FieldByName(Campo2[3]).AsString;
      end;

  Str.Free;
  DeleteFile('P:'+ Lista2[Y2] + 'dbItensPedido.txt');
  DeleteFile('P:'+ Lista2[Y2] + 'dbItensPedido.pdb');
  lblResultadoITENSPEDIDO.Caption := 'Foram importados: '+ IntToStr(dm.TBPALMITENSPEDIDO.RecordCount)+' registros da tabela ITENSPEDIDO.';
  End;
  End;
  Lista2.Free;

  //ATIVA A PROCEDURE PARA INTEGRAÇÃO COM O MICROSIGA
  dm.PROC.Close;
  dm.PROC.ExecProc;

//**********************************
//**********************************