[[Lepe]]

Para anchos de paneles diferentes, puedes calcular la posición:

Código Delphi [-]
procedure TForm1.StatusBar1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);

var ancho, panel:integer;
begin
  ancho := 0;
  panel := 0;
  for panel := 0 to statusbar.panels.count -1 do
  if ancho + statusbar.panels[panel].width > X then
     break
  else
    ancho := ancho + statusbar.panels[panel].width;

  StatusBar1.Hint:= semana[panel];    
end;

Saludos