=))))
нашол вот этот код

public
procedure CreateParams (var Params: TCreateParams); override;
end;

.....................

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams (Params);
Params.ExStyle := Params.ExStyle or
WS_EX_TRANSPARENT;
end;

он работает, но немного глючно =(