Как сделать прозрачную форму

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;Form1.BorderStyle := bsNoneend;

Прислал . [000460]