procedure TForm1.Button1Click(Sender: TObject); var Origine: String; begin Origine := 'Origine.txt'; RenameFile(Origine, 'Nouveau.txt'); end; procedure TForm1.Button2Click(Sender: TObject); var Origine, Nouveau: String; begin Origine := 'C:\Chemin\Origine.txt'; Nouveau := 'C:\Chemin\Nouveau.txt'; RenameFile(Origine, Nouveau); end;