procedure TForm1.Button1Click(Sender: TObject); var aFullFileName: string; aFileName: string; begin aFullFileName := 'C:\aaaaaa\bbbbb\ccccc\ddddd\MonFichier.txt'; aFileName := ExtractFileName(aFullFileName);// extrait le nom du fichier Memo1.Lines.Add(aFullFileName);// affiche le nom complet initial Memo1.Lines.Add(ExtractFilePath(ExtractFileDir(aFullFileName)) + aFileName);// affiche le chemin modifié end;