procedure TForm1.Button1Click(sender : TObject);
begin
RemoveDirectory('c:\MonRepertoire');
end;