Удалите путь из имени файла

Я разрабатываю программу, которая должна проанализировать имя файла в a TTextField. Как удалить расширение файла, которое я имею, уже знают (или думайте, что я могу сделать как это):

var
  FName: String;
  FPath: String;

begin
  FPath := OpenDialog1.FileName;
  FName := ChangeFileExt(FPath, '');
end;

Но как я могу удалить путь к файлу из FName?