void __fastcall TForm1::Button2Click(TObject *Sender)
{
short dataSize = 300000;
short btSize = 1024;
AnsiString fileName = "E:\\SUVAData\\111(NORTH)_CH1.NSWD";
double buffer[] = {dataSize*btSize};
FILE *Open;
if((Open = fopen(fileName.c_str(), "rb")) == NULL)
ShowMessage("Can't not open file");
else
{
if(fseek(Open, SEEK_SET, 0) == 0)
{
fread(buffer, sizeof(short), dataSize*btSize, Open);
FILE *outTextFile = fopen("d:\\Header.txt", "ab");