尝试将文件作为TFileStream打开，并将fmShareExclusive作为权限参数传递。如果打开成功，则文件未在Word中打开。

Success := FALSE;
try
    fs := TFileStream.Create(ExtractFilePath(Application.ExeName)+'Data\Quotation-Terms-1.rtf',
                             fmOpenReadWrite,
                             fmShareExclusive);
    Success := TRUE;
except
    on E:EFOpenError do
         Success := FALSE;
    else
         raise;
end;
if success then begin
    // More code
end;

在测试之前，您可能需要等待几秒钟，以便Word有时间加载文件。