//잘 돌다가 마우스를 움직이거나 하면 시스템 리소스가 없다고 하니....


HDC dc = GetDC(0);
Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas;
Bitmap=  new Graphics::TBitmap;
  ScreenCanvas->Handle=dc;
  Bitmap->Height=Screen->Height;
  Bitmap->Width=Screen->Width;
while(1)
{
  Sleep(1000);
  sx=sy=0;
  lx=Screen->Width/2;
  ly=Screen->Height/2;

  rect = Rect(0,0,lx-sx,ly-sy);
  rect2 = Rect(sx,sy,lx,ly);
  Bitmap->Canvas->CopyRect(rect,ScreenCanvas,rect2);

  tmsFull->Position=0;
  TJPEGImage *jp = new TJPEGImage();
  try
  {
    jp->Assign(Bitmap);
    jp->SaveToStream(tmsFull);
  }
  __finally
  {
    delete jp;
  }
}//while(1)