Código Delphi [-] CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';
CanAdd := Copy(AFolder.DisplayName, 1, 2) = 'b1';