如何将FORM标题栏添加像金山毒霸2002的风格(100分)

如何将FORM标题栏添加像金山毒霸2002的风格,是贴加图片，还是有其它设置！！请高手指点一下！！！快快呀！！急用！！

在最上面放一个LABEL，拉宽到FORM宽度。这是模仿拖住移动。系统菜单可以自己GetSystemMenu模拟。

public
procedure CreateParams (var Params: TCreateParams); override;
procedure HitTest (var Msg: TWmNcHitTest);
message wm_NcHitTest;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CreateParams (var Params: TCreateParams);
begin
inherited CreateParams (Params);
Params.Style := (Params.Style or ws_Popup) and
not ws_Caption;
end;

procedure TForm1.HitTest(var Msg: TWmNcHitTest);
begin
inherited;
if (Msg.Result = htClient) and (Msg.YPos <
Label1.Height + Top + GetSystemMetrics (sm_cyFrame)) then
Msg.Result := htCaption;
end;

Thank you!!![][][8D]