Problema de Componente

var
  Dir: String;
begin
  // Criando uma nova pasta
  Dir := 'Exemplo';
  CreateDir(Dir);

  // Agora verificamos se a pasta foi mesmo criada, se ela existe
  if DirectoryExists(Dir)
  then ShowMessage('A pasta:'+Dir+' foi localizada!')
  else ShowMessage('A pasta:'+Dir+' não foi encontrada ou não existe!');

  // Apagando uma pasta e verificando se foi mesmo apagada.
  RemoveDir(Dir);
  if DirectoryExists(Dir)
  then ShowMessage('A pasta:'+Dir+' foi encontrada!')
  else ShowMessage('A pasta:'+Dir+' não foi encontrada ou não existe!');
end;