Delphi. Проверка возможности чтения файла

Простая проверка возможности прочитать файл. //True – файл открыт для чтения. Иначе – False.

function IsFileOkToRead(const aFileName : String; var EMessage:string) : Boolean; var F:TFileStream; begin Result:=false;

Читать на сайте автора.