Untitled

var
Lista: TStringList;
....X: Integer;
pasta: String
begin
Lista.LoadFromFile('C:\Pastas.txt');
for X := 0 to Lista.Count -1 do
begin
  Pasta := 'P:'+ StringList[X] 'dbItensPedido.pdb';
  ...seu codigo pra processar a pasta
end;
Lista.Free;
end;
....X: Integer;
Pastas.txt so precisa conter os nomes das pastas no formato 
\000123\
\000124\