Почему первый байт пропускает?

[FantomasRUS]

Подскажите, почему первый байт пропускает при чтении из файла. К примеру в файле сохранено Павел. А функция ReadForZn(F,32) возвращает "авел" . Где может быть ошибка?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FileName1: string;
  F: File;

implementation

{$R *.dfm}

function ReadForZn(var F:File; Zn: byte): string;
var
  IndStr: Integer;
  Bufer: string[50];
  Buf: byte;
begin
Bufer:= '0';
IndStr:= 0;
while not Eof(F) do
  begin
  BlockRead(F,Buf,1);
  if Buf=Zn then
    begin
    Result:= Bufer;
    Break;
    end;
  Bufer[IndStr]:=Char(Buf);
  Inc(IndStr);
  end;
Result:= Bufer;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  OpenDialog1: TOpenDialog;
  Buf: byte;
  Index: Integer;
begin
OpenDialog1:= TOpenDialog.Create(self);
OpenDialog1.InitialDir := GetCurrentDir;
if OpenDialog1.Execute then
Edit1.Text:= OpenDialog1.FileName;
FileName1:= OpenDialog1.FileName;
OpenDialog1.Free;
AssignFile(F,FileName1);
Reset(F,1);
Index:=0;
{while not Eof(F) do
  begin
  BlockRead(F, Buf, 1);
  if  Buf = 32 then
    begin
    Index:= Index+1;
    Memo1.Lines.Add('');
    BlockRead(F, Buf, 1);
    end; }
  Memo1.Lines[Index]:= ReadForZn(F,32);
  Inc(Index);
  Memo1.Lines.Add('0');

  
//  Memo1.Lines.Add(Char(Buf));
  end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CloseFile(F);
end;

end.

[W0LF]

Если я не ошибаюсь, то строку

Reset(F,1);

замени на

Reset(F,0);

[FantomasRUS]

Сообщение от W0LF

Если я не ошибаюсь, то строку

Reset(F,1);

замени на

Reset(F,0);

Не не правильно. Это процедура сообщает что нужо читать по 1му байту за раз. Я Исправил ошибку

function ReadForZn(var F:File; Zn: byte): string;
var
  Bufer: string;
  Buf: byte;
begin
Bufer:= '';
while not Eof(F) do
  begin
  BlockRead(F,Buf,1);
  if Buf=Zn then
    begin
    Result:= Bufer;
    Break;
    end;
  Bufer:=Bufer+Char(Buf);
  end;
Result:= Bufer;
end;