f=fopen(OpenDialog1->FileName.c_str(),"rb");
                fseek(f,0L,SEEK_END);
                f_len=ftell(f);
                fseek(f,0L,SEEK_SET);
                f_pos=ftell(f);
                i=0;
          while(!feof(f))
                {s=fgetc(f);
                StringGrid1->RowCount += 1;
                massiv_bits(massivA,s); //доп.функция переводит символ в биты
                for(j=7;j>=0;j--)
                        {pszBufferBitsView = pszBufferBitsView + IntToStr(massivA[j]);
                        }
                StringGrid1->Cells[1][i+1] = pszBufferBitsView;
                pszBufferBitsView = "";
                i++;
                }