Delphi中判断双击任务条中的哪一栏

procedure TForm1.StatusBar1DblClick(Sender: TObject);
var
  I, X, n, m: Integer;
begin
  with Sender as TStatusBar do begin
    X := ScreenToClient(Mouse.CursorPos).X;
    n := 0;
    for I := 0 to Panels.Count - 1 do begin
      if I = Panels.Count - 1 then m := Width //最后一个Panel的Width没有意义
      else m := Panels[I].Width;
      n:=n+m;
      if (n > x) then begin
        showmessage(timetostr(now)+'        第'+inttostr(I)+'个 '+Panels[I].Text);
        Break;
      end;
    end;
  end;
end;