Something

//Insere na tabela de Itens de Pedidos
dm.TBPALMITENSPEDIDO.Open;
Str := TStringList.Create;
Str.LoadFromFile('C:\Sincronismo\dados\000179\dbItensPedido.txt');
for i := 0 to Str.Count -1 do
  begin
    ITEM := ITEM + 1;
        //Atribui o valor ao ITEM
        IF ITEM < 10 Then
        begin
          ITEM_AUX := '0' + IntToStr(ITEM);
        end
        Else
        begin
          ITEM_AUX := IntToStr(ITEM);
        End;
        //******************************
  S := Str[i];
  dm.TBPALMITENSPEDIDO.Insert;
  //for X := 1 to 11 do
  for X := 1 to 5 do
  begin
    dm.TBPALMITENSPEDIDO.FieldByName(Campo2[X]).AsString := Copy(S,1,Pos(#9,S)-1);
    Delete(S, 1, Pos(#9,S));
  end;
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[6]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[7]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[8]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[9]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[10]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[11]).AsString := Copy(S,1,Length(S));
  dm.TBPALMITENSPEDIDO.FieldByName(Campo2[12]).AsString := ITEM_AUX;
  dm.TBPALMITENSPEDIDO.Post;
end;