//設置狀態欄面板對象的Style為OwnerDraw,并在狀態欄對象的DrawPanel事件中書寫以下代碼：

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;Panel: TStatusPanel; const Rect: Trect);
　begin
　　with statusbar1.Canvas do 
begin
　　　Brush.Color := clRed;
　　　FillRect(Rect);
　　　TextOut(Rect.Left, Rect.Top,'Panel'+IntToStr(Panel.Index));
end;
end;