//---------------------------------------------------------------------------
void __fastcall TFMain::Button20Click(TObject *Sender)
{
   Graphics::TBitmap *TheBitmap,*TempBitmap,*NewBitmap;
  int Width, Height;      //COPY
  TheBitmap=Image1->Picture->Bitmap;      //  Make a copy of the selected image      TempBitmap=new Graphics::TBitmap();
  TempBitmap->Width =TheBitmap->Width*2;
  TempBitmap->Height=TheBitmap->Height*2;
  TempBitmap->PixelFormat=pf24bit;      int r=0;
  int s=0;
  for(int y=0;yHeight;y  )
  {
    for(int x=0;xWidth;x  )
      {
    TempBitmap->Canvas->Pixels[r][s]=TheBitmap->Canvas->Pixels[x][y];
    TempBitmap->Canvas->Pixels[r][s 1]=TheBitmap->Canvas->Pixels[x][y];
    TempBitmap->Canvas->Pixels[r 1][s]=TheBitmap->Canvas->Pixels[x][y];
    TempBitmap->Canvas->Pixels[r 1][s 1]=TheBitmap->Canvas->Pixels[x][y];
    r =2;
      }
    r=0;
    s =2;
  }      Clipboard()->Assign(TempBitmap);    // Paste
//-----------------------------------------------------------------      if (Clipboard()->HasFormat(CF_BITMAP))
   {
      FMain->Image1->AutoSize=true;
      TheBitmap->Assign(Clipboard());
   }
}
//---------------------------------------------------------------------------