procedure TForm1.Button1Click(sender : TObject); begin RenameFile('c:\MonFichier1.txt','c:\MonFichier2.txt'); end;