procedure TfrmEnvia.btnConverterRecebePedidoClick(Sender: TObject);
Var Str: TStringList;
S: String;
i, X: integer;

Lista: TStringList;
Y: Integer;
Pasta: String;

Const Campo: Array[1..11]of String=('CHAVE','FILIAL','NPEDIDO','CODREPRESENTANTE','CLIENTE','LOJA','VALIDADE','CONDPGTO','FORMAPGTO','DESC_TOTAL', 'TOTAL');
begin
//**********************************
//TABELA DE PEDIDO
//**********************************
Lista := TStringList.Create;
Lista.LoadFromFile('P:\PASTAS.TXT');
for Y := 0 to Lista.Count -1 do
begin
  Pasta := 'P:'+ Lista[Y] + 'dbPedidoPalm.pdb';
  //Verifica se o arquivo existe
  If FileExists('P:'+ Lista[Y] + 'dbPedidoPalm.txt') Then
  begin
    dm.TBPALMPEDIDO.Open;
    Str := TStringList.Create;
    Str.LoadFromFile('P:'+ Lista[Y] + 'dbPedidoPalm.txt');
    for i := 0 to Str.Count -1 do
    begin
       S := Str[i];
       dm.TBPALMPEDIDO.Insert;
    for X := 1 to 10 do
    begin
      dm.TBPALMPEDIDO.FieldByName(Campo[X]).AsString := StringReplace(Copy(S,1,Pos(#9,S)-1),'.' , ',',[RfReplaceAll]);
      Delete(S, 1, Pos(#9,S));
    end;
    dm.TBPALMPEDIDO.FieldByName(Campo[11]).AsString := StringReplace(Copy(S,1,Length(S)),'.' , ',',[RfReplaceAll]);
    dm.TBPALMPEDIDO.Post;
end;
Str.Free;
DeleteFile('P:'+ Lista[Y] + 'dbPedidoPalm.txt');
DeleteFile('P:'+ Lista[Y] + 'dbPedidoPalm.pdb');
lblResultadoPEDIDO.Caption := 'Foram importados: '+ IntToStr(dm.TBPALMPEDIDO.RecordCount)+' registros da tabela PEDIDO.';
end;
end;
Lista.Free;
//**********************************
//**********************************
end;