in Using Delphi VCL :: 
Delphi's TStatusBar control displays a row of panels, usually aligned at the bottom of a form. The Panels property of the TStatusBar control is a collection of TStatusPanel objects.
The TStatusBar exposes the OnClick event that gets fired when the user clicks the control.
Unfortunatelly, there's no "Panel Click" event to be fired when a particular Status Panel is clicked.
Read the full article to learn how to know what StatusBar Panel was Clicked
Related: Placing a TProgressBar into a TStatusBar | Get the Url of a Hyperlink when the Mouse moves | TMemoBar - T(Custom)Memo extender Delphi component


thank
it is a great idea and i have found the
metod to use in my application.
it is possible add Tcolor to single
panel ?
thank
Here’s how to apply custom coloring (and more) for a status bar panel:
http://delphi.about.com/od/vclusing/a/statusbar_owner.htm