SetWindowLong(Form1->Handle, GWL_EXSTYLE, GetWindowLong(Form1->Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
SetLayeredWindowAttributes(Form1->Handle, 0, 200, LWA_ALPHA); // 200 - коэффициент прозрачности