Wyswietlenie 2 roznych kolorow w Statusbar

Czy da się i ew jak wyświetlić w TStatusBar info w 2 różnych kolorach?
Chodzi o SimpleText
StatusKolorZielony + StatusKolorCzerwony

musisz ręcznie rysować w zdarzeniu OnDrawPanel http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/OnDrawPanel_(Delphi)

Tworzysz panele w StatusBarze, ustawiasz styl na OwnerDraw, a z zdarzeniu StatusBara dla OnDrawPanel wpisujesz np.:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
  case panel.Index of
    0 : begin
          StatusBar.Canvas.Font.Color := clGreen;
          StatusBar.Canvas.TextRect(Rect,Rect.Left,Rect.Top, Panel.Text);
        end;
    1 : begin
          StatusBar.Canvas.Font.Color := clRed;
          StatusBar.Canvas.TextRect(Rect,Rect.Left,Rect.Top, Panel.Text);
        end;
  end;
end;