Перемещение параллелограмма

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TPoint points[4];
points[0] = Point(50, 50);
points[1] = Point(150, 50);
points[2] = Point(120, 100);
points[3] = Point(20, 100);
Canvas->Polygon(points, 4);
Canvas->Ellipse(37,50,134,100);
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int origin_x=0, origin_y=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Canvas->FillRect(Rect(0, 0, Form1->ClientWidth, Form1->ClientHeight)); //очистить от предыдущего изображения
TPoint points[4];
points[0] = Point(50+origin_x, 50+origin_y);
points[1] = Point(150+origin_x, 50+origin_y);
points[2] = Point(120+origin_x, 100+origin_y);
points[3] = Point(20+origin_x, 100+origin_y);
Canvas->Polygon(points, 3); // надо 3!!!
origin_x++; // смещение для следующего кадра
origin_y++;
}
//---------------------------------------------------------------------------