Графика в C++ Builder по средствам ввода с клавиатуры

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void vagon(int n)
{
  for (int i = 1; i <= n; i++)
  {
    Form1->Canvas->MoveTo(200*i, 150);
    Form1->Canvas->LineTo(200*i+50, 150);
    Form1->Canvas->Rectangle(200*i+50, 100, 200*(i+1), 200);
    Form1->Canvas->Ellipse(200*i+75, 185, 200*i+105, 215);
    Form1->Canvas->Ellipse(200*(i+1)-55, 185, 200*(i+1)-25, 215);
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  vagon(StrToIntDef(LabeledEdit1->Text, 3));
}

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TLabeledEdit *LabeledEdit1;
    void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif