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

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

var
  FName: String;
  FPath: String;

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

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