выводит картинку вместо графика

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#include<math.h>
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
 
//---------------------------------------------------------------------------
float f(float kx,float eps)
{
    float s=kx;
    float u=kx;
    int  n=0;
    float A,B;
    while(abs(u)>=eps)
    {
        u=-u*sqrt(2*kx)/(2*n+2)/(2*n+3);
        s=s+u;
        n++;
    }
    return s;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N1Click(TObject *Sender)
{
if(MessageBox(0,"Öåëü ïðîãðàììû ñîñòîèò â òîì, ÷òî áû îïðåäåëèòü ñîáñòâåííûå ÷àñòîòû êîëåáàíèé áàëêè ñ áåñêîíå÷íûì ÷èñëîì ñòåïåíåé ñâîáîäû ñ êîíñîëüíûì çàêðåïëåíèåì.","Ïðîãðàìà",MB_OK)==IDOK);
 {
 }}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N4Click(TObject *Sender)
{
if(MessageBox(0,"ϳñëÿ çàïóñêó ïðîãðàìè ïåðåä Âàìè ç'ÿâèòüñÿ ïàíåëü, ó ÿêó Âàì íåîáõ³äíî âíåñòè äàí³ äëÿ ðîçðàõóíêó. Äëÿ òîãî, ùîá âíåñòè çíà÷åííÿ Âàì íåîáõ³äíî âñòàíîâèòè êóðñîð ìèø³ (àáî æ êëàâ³øà Tab) â ïîòð³áíå ïîðîæíº ïîëå ï³ñëÿ ÷îãî âíåñòè â³äïîâ³äí³ çíà÷åííÿ è íàòèñíóòè êíîïêó <Ðîçðàõóíîê>","Ïðîãðàìà",MB_OK)==IDOK);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
 Form1->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 Image1->Canvas->MoveTo(0-1000,cos(0)*30+(Image1->Height)/2);
     float kx=StrToFloat(Edit1->Text);
     float eps=StrToFloat(Edit2->Text);
 
     float w,w1,w2;
     float E=21000;
     float D=eps;
     float d=D/100;
     float m=kx/d;
     float J=3.14*d*d*d/64;
     float hkx=0.01;
     float s1;
     float s2;
     float kxs1;
     float kxs2;
     for(int i=0;i<2;i++)
     {
     s2=0;
     s1=f(kx,eps);
     m1:
     Image1->Canvas->LineTo(kx*30-1000+15,cos(kx)*30+(Image1->Height)/2);
     kx=kx+hkx;
     w=sqrt((3*E*J)/(kx*kx*m));
     s2=f(kx,eps);
     if(s1*s2>0)
        {
            s1=s2;
            goto m1;
        }
        if(i==0)
                kxs1=kx-hkx/2;
                 w1=kx/230-hkx/2;
     Image1->Canvas->Ellipse(kxs1*30-5-1000+190,cos(w1)+(Image1->Height)/2-5,kxs1*30+5-1000+190,cos(kxs1)+(Image1->Height)/2+5);
     TStringList *List = new TStringList;
     Label1->Caption="I ñîáñòâåííàÿ ÷àñòîòà = "+FloatToStr(w1);
    float s3=f(kx,eps);
     m2:
     kx=kx+hkx;
     if(s1*s3>0)
     {
        s1=s3;
        goto m2;
     }
     if(i==0)
        kxs2=kx-hkx/2;
        w2=kx/230-hkx;
     Image1->Canvas->Ellipse(kxs2*30-5-1000+97,cos(kxs2)+(Image1->Height)/2-5,kxs2*30+5-1000+97,cos(kxs2)+(Image1->Height)/2+5);
     Label2->Caption="II ñîáñòâåííàÿ ÷àñòîòà = "+FloatToStr(w2);
     }
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Image1Click(TObject *Sender)
{
       Image1->Canvas->MoveTo((Image1->Width)/2,0);
      Image1->Canvas->LineTo((Image1->Width)/2,Image1->Height);
      Image1->Canvas->MoveTo(0,(Image1->Height)/2);
      Image1->Canvas->LineTo(Image1->Width,(Image1->Height)/2);
 
}