如何在状态栏中加入图标？

想在状态栏里能显示张图片，
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var filename:string;
begin
image1.Parent:=statusbar1;
image1.Left:=rect.left+5;
image1.top:=rect.top-4;
image1.width:=panel.width;
image1.height:=rect.bottom-rect.top;
end;