procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  with StatusBar1.Canvas do
  begin
    FillRect(Rect);
    //Definir Font e Style
    Font.Name:='Verdana';
    Font.Color:=clnavy;
    Font.Style :=[fsBold,fsItalic];
    //Desenha as imagens de acordo com o indice de cada panel
    ImageList1.Draw(StatusBar1.Canvas,Rect.Left+5,Rect.Top+1,Panel.Index);
    //escreve o texto em cada panel
    if Panel.Index = 0 then TextOut(Rect.Left+25,Rect.Top+1,'Painel 0');
    if Panel.Index = 1 then TextOut(Rect.Left+25,Rect.Top+1,'Painel 1');
    if Panel.Index = 2 then TextOut(Rect.Left+25,Rect.Top+1,'Painel 2');
  end
end;