function TForm1.FieldS(NomF : Integer; Beg: Integer):Integer;
Var
   f:  file of Byte;
   bt: Byte;
   pos: Integer;
begin
 bt := 0;
 pos:=Beg+NomF*32;
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
  try
    Seek(f, pos);
    Read(f, bt);
  finally
    CloseFile(f);
  end;
  Result :=bt;
end;