void __fastcall TForm1::Button2Click(TObject *Sender)
{
Graphics::TBitmap *TheB, *TempB;
Byte *pyt1,*pyt2;
int W,H;

TempB=new Graphics::TBitmap();
TheB=Image1->Picture ->Bitmap;
TempB->Assign(TheB);

W=TheB->Width;
H=TheB->Height;

for(int y=0;y<H;y++)
{
    pyt1=(Byte*)TempB->ScanLine[y];
    pyt2=(Byte*)TheB->ScanLine[y];

    for(int x=0;x<W*3;x+=3)
    {
        pyt1[x]=pyt2[W-1-x];
        pyt1[x+1]=pyt2[W-1-(x+1)];
        pyt1[x+2]=pyt2[W-1-(x+2)];
    }

    TheB->Assign(TempB);
}

delete TempB;
Label5->Caption ="狀態：已完成翻轉";    
}