[ruina]

sip, con ApplicationEvents (en la paleta, pestaña aditional) tienes controlado el evento OnShowHint, el único problema que le veo es que no tienes un OnHideHint, la solución que se me ocurre es poner un timer con el HideTimeout para volver a mostrar la información en varios paneles. Ma o o meno seria:

Código Delphi [-]
procedure TForm1.ApplicationEvents1ShowHint(var HintStr: String;
  var CanShow: Boolean; var HintInfo: THintInfo);
begin
    StatusBar1.SimplePanel:=true;
    StatusBar1.SimpleText:=HintStr;
    Timer1.Enabled:=false;
    Timer1.Interval:= HintInfo.HideTimeout;
    Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    StatusBar1.SimplePanel:=false;
    StatusBar1.Panels[0].Text:='feo';
    Timer1.Enabled:=false;
end;

Con el timer inicializado a false y el statusBar con paneles creados.