{
OnDrawPanel, Canvas, Draw example
The following code is the OnDrawPanel event handler of a status bar.  It draws each panel of the status bar, adding text and icons stored in ImageList1. The image list contains as many icons as there are header sections.
} 
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
with StatusBar1.Canvas do
  begin
    Brush.Color := clRed;
    FillRect(Rect);
    Font.Color := clYellow;
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left,Rect.Top,Panel.Index);
    TextOut(Rect.left + 30, Rect.top + 2, 'Panel' + IntToStr(Panel.Index));
  end;
end; 
