[Mavlyudov]

А как насчет этого. Нельзя ли это и для winapi применить?

................
const
LWA_ALPHA = $00000002;
WS_EX_LAYERED = $00080000;

var
LayeredWndAttr:Pointer=@SetLayeredWindowAttributes;

procedure TForm1.FormCreate(Sender: TObject);
begin
I :=50; // Устанавлевает уровнь прозрачности от 0 до 100
LayeredWndAttr := GetProcAddress(GetModuleHandle('user32.dll'),'SetLayeredWindowAttributes');
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0, 0, 0), Round(I * 255 div 100), LWA_ALPHA);
end;