procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var
RectForText: TRect;
begin
If (Panel = Statusbar1.Panels[1]) and (StatusBar1.Panels[1].Text<>'') then begin
RectForText := Rect;
StatusBar1.Canvas.Font.Color:=clRed;
StatusBar1.Canvas.Brush.Color:=clDefault;
DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, RectForText, DT_SINGLELINE or DT_VCENTER or DT_LEFT);
end
else
StatusBar1.Canvas.Font.Color:=clBlack;
end;