Как определить нажатый панель StatusBar-а

[SASFM]

Всем привет. Ребята кто нибудь знает, как можно определить какой панель была нажата в компонент StatusBar? Короче, мне нужно сделать так чтобы при щелчке на второй панель программа выводила сообщение "Это второй панель".

[DIONISKA]

Повесить на onmousedown что-то вроде этого:

procedure Tsample.StatusBarMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const atext:array[0..4] of string=('первый','второй','третий','четвёртый','пятый');
var
  I: Integer;
  x1,x2:integer;
begin
if Button=TMouseButton.mbLeft then else exit;
for I := 0 to StatusBar.Panels.Count-1 do
begin
  x1:=x2;
  x2:=x2+StatusBar.Panels[i].Width;
  if (x<=x2) and (x>=x1) then
    begin
     showmessage('Это '+atext[i]+' панел');
     break;
    end;
end;
end;

[Аватар]

Примерно так

procedure TForm1.StatusBar1Click(Sender: TObject);
var CursorPos: TPoint;
    i,x: Integer;
begin
  CursorPos:=StatusBar1.ScreenToClient(Mouse.CursorPos);
  x:=0;
  for i:=0 to StatusBar1.Panels.Count-1 do
    if CursorPos.X<X+StatusBar1.Panels.Items[i].Width then begin
      ShowMessage(Format('Курсор на панели %d',[i]));
      Break;
    end
    else Inc(x,StatusBar1.Panels.Items[i].Width);
end;