Стеганография LSB BMP

procedure TForm1.Button2Click(Sender: TObject);          //proverka konteynera
var                                                      //
   fileheader: TBitmapfileheader;                        //
   infoheader: TBitmapinfoheader;                        //
   s: TFilestream;                                       //
   begin                                                 //
   s := TFileStream.Create(openpicturedialog1.filename, fmOpenRead);
     try
     s.Read(fileheader, SizeOf(fileheader));
     s.Read(infoheader, SizeOf(infoheader));
   finally
    s.Free;
  end;
  listbox1.Items.Clear;
   listbox1.Items.Add('Filesize:    ' + IntToStr(fileheader.bfSize));
   listbox1.Items.Add('Width:       ' + IntToStr(infoheader.biWidth));
   listbox1.Items.Add('Height:      ' + IntToStr(infoheader.biHeight));
   listbox1.Items.Add('BitCount:    ' + IntToStr(infoheader.biBitCount));
   listbox1.Items.Add('type:    ' + IntToStr(fileheader.bfType));
   listbox1.Items.Add('compr:    ' + IntToStr(infoheader.biCompression));
   listbox1.Items.Add('sdvig k 1 baytu:    ' + IntToStr(fileheader.bfOffBits));