void __fastcall TForm2::SaveBMP1Click(TObject *Sender)
{
Form2->Chart1->SaveToBitmapFile("frequency2.bmp");
}

void __fastcall TPBUForm::Chart1DblClick(TObject *Sender)
{
  if(!OpenDialog1->Execute()) return;

  FILE* f=fopen(OpenDialog1->FileName.c_str(),"w");
  TChart* Ch=Chart1;    int is=0;
  for(long int i=0; i<Ch->Series[is]->XValues->Count(); i++ )
  {
    fprintf(f,"%g\t%g\n",
      Ch->Series[is]->XValues->Value[i],             Ch->Series[is]->YValues->Value[i]  );
  }
  fclose(f);
  Application->MessageBoxA("Chart was saved","Warning");
}