Otra posible solucion es utilizar un TImageList, colocar ahi los bmps o iconos que quieras usar y luego escribir en la proiedad text del panel su indice, es decir:
Código Delphi
[-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
Statusbar.Canvas.FillRect(Rect);
ImageList1.Draw(Statusbar.Canvas,Rect.Left,Rect.Top,StrToIntDef(Panel.Text,-1));
end;
Y para dibujar una imagen:
Código Delphi
[-]
Statusbar1.Panels[0].Text:= '0';
Statusbar1.Panels[0].Text:= '1';
Statusbar1.Panels[0].Text:= '-1';