Как получить расширение файла в delphi?

1
2
3
4
5

var FileName;
begin
	FileName:= 'Тут полный путь к файлу';
	ShowMessage(ExtractFileExt(FileName));
end;