type
 procedure CreateParams(var Params:TCreateParams); override;

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

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