Form Transparente

Oi . . .
Estou tentando usar uma dica de form transparente com o código:

procedure TfMain.FormShow(Sender: TObject);
var
frmRegion, tempRegion: HRGN;
I: Integer;
Arect: TRect;
Begin
frmRegion:= 0;
for I:= 0 to ControlCount - 1 do begin
ARect:= Controls[i].BoundsRect;
OffsetRect(ARect, ClientOrigin.X - Left, ClientOrigin.Y - top );
TempRegion:= CreateRectRgnIndirect(ARect);
if frmRegion = 0 then
FrmRegion:= TempRegion
else begin
CombineRgn(FrmRegion, FrmRegion, TempRegion, RGN_OR);
DeleteObject(TempRegion);
end;
end;
CombineRgn(FrmRegion, FrmRegion, TempRegion, RGN_OR);
SetWindowRgn(Handle, FrmRegion, True);
DeleteObject(TempRegion);
end;

O forn realmente fica transparente, mas os paineis nelo não. O que posso fazer?
{}
Deza