HDC dc = GetDC(0);
Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas;
ScreenCanvas->Handle = dc;
TJPEGImage *JImage = new TJPEGImage;
Image1->Picture->Bitmap->Width = Screen->Width;
Image1->Picture->Bitmap->Height= Screen->Height;
TRect rect = Rect(0,0,Screen->Width, Screen->Height);
Image1->Picture->Bitmap->Canvas->CopyRect(rect, ScreenCanvas, rect);
JImage->Assign(Image1->Picture->Graphic);
JImage->CompressionQuality = 19;
JImage->Compress();
JImage->SaveToFile("cap.jpg");