void TForm1::grafiko_skale()
{
// for (int i=1;i<=10;i++)
//  {
//Image2->Canvas->MoveTo()
//  }
Image2->Width= wh;
Image2->Height = ih;

// Image2->Canvas->MoveTo(wh,0);
// Image2->Canvas->LineTo(wh,ih*2);
Image2->Canvas->Pen->Color = clBlack;
Image2->Canvas->MoveTo(wh/2,0);
Image2->Canvas->LineTo(wh/2,ih);

Image2->Canvas->MoveTo(0,ih/2);
Image2->Canvas->LineTo(wh,ih/2);

Image2->Canvas->Font->Color = clGray;
//X-asis  -
for (double i=0;i <= wh/2;i=i+wh/10)
{
Image2->Canvas->TextOutA(wh/2-i,ih/2+10,FloatToStr(i*-1));
}

//X-asis   +
for (double i=0;i <= wh/2;i=i+wh/10)
{
Image2->Canvas->TextOutA(wh/2+i,ih/2+10,FloatToStr(i));
}



//Y-asis

//X-asis  -
for (double i=0;i <= ih/2;i=i+ih/10)
{
Image2->Canvas->TextOutA(wh/2-20,ih/2-i,FloatToStr(i*-1));
}

//X-asis   +
for (double i=0;i <= ih/2;i=i+ih/10)
{
Image2->Canvas->TextOutA(wh/2-20,ih/2+i,FloatToStr(i));
}








Image1->Picture = Image2->Picture;


}