void __fastcall TForm2::FormCreate(TObject *Sender)
{
  Gdiplus::Metafile* myMetafile = new Gdiplus::Metafile(Canvas->Handle, EmfTypeEmfPlusOnly, L"MyDiskFile.emf" );
  Gdiplus::Graphics* myGraphics = new Gdiplus::Graphics(myMetafile);
  Pen* myPen = new Pen(Gdiplus::Color(255, 0, 0, 200));

  myGraphics->SetSmoothingMode(SmoothingModeAntiAlias);


  for(int i = 0; i < gWidth / gGridSize; i++)
  {
     Line(myGraphics, i * gGridSize, 0, i * gGridSize, gHeight, 1);
  }

  for(int i = 0; i < gHeight / gGridSize; i++)
  {
     Line(myGraphics, 0, i * gGridSize, gWidth, i * gGridSize, 1);
  }

  delete myGraphics;
  delete myPen;
  delete myMetafile;
}

void __fastcall TForm2::FormPaint(TObject *Sender)
{
    Gdiplus::Graphics myGraphics(Canvas->Handle);
    Image myImage(L"MyDiskFile.emf");
    myGraphics.DrawImage(&myImage, 0, 0);
}

/* Это еще да */
int ew = gWidth/gGridSize;

for( int i = 0; i < ew; ++i ) {
   
    /* А это ? */
    int w = i*gGridSize;

    Line( meGraphics, w, 0, w, gHeight, 1 );
}

   int t = gWidth / gGridSize;
   int f = 0;

   for(int i = 0; i < t; i++)
   {
      f = i * gGridSize;
      Line(FGDIInterface, f, 0, f, gHeight, 1);
   }

   t = gHeight / gGridSize;

   for(int i = 0; i < t; i++)
   {
      f = i * gGridSize;
      Line(FGDIInterface, 0, f, gWidth, f, 1);
   }

   /* Размер сетки. */
   int gGridSize = 25;
   /* Высота холста. */
   int gHeight = 3000;

   /* Ширина холста. */
   int gWidth  = 3000;

void __fastcall Line(Gdiplus::Graphics * Value, int x, int y, int cx, int cy, int Width)
{
  Pen pen(Color(150, 189, 208, 233), Width);
  pen.SetDashStyle(DashStyle::DashStyleDash);
  Value->DrawLine(&pen, x,  y,  cx,  cy);
}

bool gCapture = false;
int gX        = 0;
int gY        = 0;

//---------------------------------------------------------------------------
void __fastcall TForm2::FormPaint(TObject *Sender)
{
  Gdiplus::Graphics *FGDIInterface  = new Gdiplus::Graphics(Canvas->Handle, this->Handle);

  Line(FGDIInterface, 80, 90, gX, gY, 10);

  for(int i = 0; i < gWidth / gGridSize; i++)
  {
    Line(FGDIInterface, i * gGridSize, 0, i * gGridSize, gHeight, 1);
  }

  for(int i = 0; i < gHeight / gGridSize; i++)
  {
    Line(FGDIInterface, 0, i * gGridSize, gWidth, i * gGridSize, 1);
  }

  delete FGDIInterface;
}


//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  gCapture = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
  gCapture = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
  if(gCapture)
  {
     gX = X;
     gY = Y;

     /* */
     Refresh();
  }
}