procedure TForm1.Button1Click(sender : TObject);
begin
CreateDirectory('c:\MonRepertoire',nil); //Crée un répertoire
end;