[AlexSoft]

Код:

function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin
try
FS := TFilestream.Create(Filename, fmOpenRead); //вот в этой строчке выдает ошибку "Cannot open file..."
except
Result := -1;
end;
if Result <> -1 then Result := FS.Size;
FS.Free;
end;