Построение прямой по точкам

  Canvas->MoveTo(x0, y0);
  Canvas->LineTo(x1, y1);
  Canvas->LineTo(x2, y2);
  .......

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Image1->Canvas->MoveTo(0,Image1->Height/2);
 Image1->Canvas->LineTo(Image1->Width,Image1->Height/2);
  x0=Image1->Width/2;
  y0=Image1->Height/2;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
y=-StrToInt(Edit1->Text);
if(y>Image1->Width/2) y=0;
 else{
 Image1->Canvas->MoveTo(x0,y0);
 Image1->Canvas->LineTo(x+Image1->Width/2,y+Image1->Height/2);
 x0=x+Image1->Width/2;
 y0=y+Image1->Height/2;
 x+=5;
 }
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Image1->Canvas->Brush->Color=clWhite;
Image1->Canvas->FillRect(Rect(0,0,Image1->Width,Image1->Height));
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 i=0;
 a[i]=-StrToInt(Edit1->Text);
 i++;
 for(j=0;j<i+1;j++)
 if (a[j]<=min) min=a[j];
 
}