Прозрачный фон формы

[Yogik™]

Вообщем, есть цель: На форме есть объекты, существующие таким образом, что на них прозрачность самой формы никак не влияет. То есть, к примеру, кнопка просто весит где-то, а фона позади нее не видно..

При изменении параметра AlphaBlend изменяется прозрачность всего, что есть, а хочется иначе

Как этого добиться?

[Alter]

Вот код(где-то на форуме было такое, непомню где. Но код вот):
Видно всё кроме формы.

unit DefFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Panel1: TPanel;
    Button1: TButton;
    procedure Draw(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Draw(Sender: TObject);
  var T:TTime;
begin
     T:=(Now);
      Canvas.Brush.Color:=clLime;
      Canvas.Pen.Color:=clLime;
      Canvas.Rectangle(0,0,Form1.Width,Form1.Height);
      Canvas.Brush.Style:=bsClear;
      Canvas.TextOut(0,0,TimeToStr(T));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
      BorderStyle := bsNone;
      TransparentColorValue:=clLime;
      TransparentColor:=true;
     Timer1.Interval:=100;
      Canvas.Font.Color:=clRed;
      Canvas.Font.Size:=36;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 CLOSE;
end;

end.

[Yogik™]

Супер!
Благодарствую