Чтение из открытого файла 2

Автор: Vit

var
  b: string[15];
begin
  with TFileStream.create('c:\MyFile.doc', fmShareDenyNone) do
  try
    read(b, 14);
    showmessage(b);
  finally
    Free;
  end;
end;