In order to use this function you have to declare ComObj in uses list

uses
  ComObj;

The function

function IsNTFS(AFileName: string): Boolean;
var
  fso, drv: OleVariant;
begin
  IsNTFS := False;
  fso := CreateOleObject('Scripting.FileSystemObject');
  drv := fso.GetDrive(fso.GetDriveName(AFileName));
  IsNTFS := drv.FileSystem = 'NTFS'
end;

Example usage:

if IsNTFS('X:\Temp\File.doc') then
    ShowMessage('File is on NTFS File System')
else
    ShowMessage('File is not on NTFS File System')