1:
2:
3:
4:

procedure TForm1.ApplicationEvents1Hint(Sender: TObject);
begin
  StatusBar1.SimpleText:=Application.Hint
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel;const Rect: TRect);
begin
  with Statusbar do
    begin
      Canvas.fillrect(rect);

      Canvas.font.Color:=clred;
      Canvas.textout(Rect.Left+2,rect.Top+2,panel.Text);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  with Label1 do
  begin
    Parent := StatusBar1;
    Transparent := True;
    Alignment := taCenter;
    Layout := tlCenter;
    Align := alClient;
    Font.Style := [fsBold];
    Font.Color := clYellow;
  end;