Прозрачность только для Image, а не для всей формы

int Transparency = 50;
long ExtStyle = GetWindowLong(Handle, GWL_EXSTYLE);
SetWindowLong(Handle, GWL_EXSTYLE, ExtStyle | WS_EX_LAYERED);
::SetLayeredWindowAttributes(Handle, 0 , (255 * Transparency) / 100,
LWA_ALPHA); // прозрачность

void __fastcall TForm1::FormShow( TObject *Sender )
{
    BorderStyle = bsNone; // скрыть рамку окна (можно этого и не делать)
 
    int transp_val = 50;
    long ext_style = GetWindowLong( Handle, GWL_EXSTYLE );
    SetWindowLong( Handle, GWL_EXSTYLE, ext_style | WS_EX_LAYERED );
    ::SetLayeredWindowAttributes( Handle, 0, ( 255 *transp_val ) / 100, LWA_ALPHA ); // прозрачность
}
// ---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
    HRGN All, TempRgn;
    int x, y, i;
    x = ( div( Form1->Width - Form1->ClientWidth, 2 ) ).quot;
    y = Form1->Height - Form1->ClientHeight - x;
    All = CreateRectRgn( 0, 0, Form1->Width, Form1->Height );
    TempRgn = CreateRectRgn( x, y, x + Form1->ClientWidth, y + Form1->ClientHeight );
    CombineRgn( All, All, TempRgn, RGN_DIFF );
    for ( i = 0; i < Form1->ControlCount; i++ ) {
        TempRgn = CreateRectRgn( x + Form1->Controls[i]->Left,
            y + Form1->Controls[i]->Top,
            x + Form1->Controls[i]->Left + Form1->Controls[i]->Width,
            y + Form1->Controls[i]->Top + Form1->Controls[i]->Height );
        CombineRgn( All, All, TempRgn, RGN_OR );
    }
    SetWindowRgn( Form1->Handle, All, true );
}