Не записывается массив в бинарный файл

FILE *an1; 
an1=fopen(ANALOG1,"wb"); // ANALOG1 -> нормально прописан путь к файлу, файл создает
for (int u=0;u<40;u++)
              {
                k1k=tblp1[u]; // k1k - short тип переменной
                bufa1[u]=buf[j+k1k]; // bufa1[40] и tblp1[4096] - short тип массива и каждый 
                // элемент имеет длину 16 чисел пример: bufa1[0]=1010101010101010
 
                if(u<1)
                {
                 Panel1->Caption=bufa1[u];// выводит первый элемент в десятичной системе 
                //счисления если берем из примера, то выводит 43690 
                }
               }
fwrite(&bufa1,sizeof(short),40,an1);// запись не идет, библиотека подключена, 
                                                 // не ругается на fwrite 
short bfop[1];
fseek(an1,0,SEEK_SET);
fread(&bfop,sizeof(short),1,an1);
Panel2->Caption=bfop[0]; // выводит 0, а должен 43690

#include <vcl.h>
#pragma hdrstop
#include <FileCtrl.hpp>
#include "Unit1.h"
 #include <stdio.h>
#include <stdlib.h>
#include <cstring.h>
#include <dos.h>
#include <io.h>
#include <iostream.h>
#include "Unit2.h"
#include <fstream.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"