procedure TForm1.Button1Click(sender : TObject);
begin
MoveFile('c:\MonRepertoire.txt','a:\MonRepertoire.txt');
end;