La próxima vez abre un hilo nuevo puesto que se trata de una pregunta nueva:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
begin
if not DirectoryExists('E:\Mi_Prueba') then
if not CreateDir('E:\Mi_Prueba') then
raise Exception.Create('No Puedo crear el Directorio.');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if DirectoryExists('E:\Mi_Prueba') then
RemoveDir('E:\Mi_Prueba')
end;
Un Saludo.