void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int Fhandle;       Databuffer[0]=0x0D;
   Databuffer[1]=0x0D;
   Databuffer[2]=0x0D;
   Databuffer[3]=0x0D;
   Databuffer[4]=0x0A;       SaveDialog->FilterIndex = 1;
   if (SaveDialog->Execute())
      {
        if ((Fhandle = creat(SaveDialog->FileName.c_str(), S_IREAD | S_IWRITE)) != -1)
             write(Fhandle, Databuffer, 0x1fff);            close(Fhandle);
      };
}