Así nada más, creo que no se puede, pero poniendo Style = psOwnerDraw al panel del StatusBar donde queremos texto en varias líneas, es fácil lograrlo con el evento OnDrawPanel del StatusBar:
Código Delphi
[-]
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);
var
R: TRect;
begin
R := Rect;
DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, R, 0);
end;
Si Panel.Text tiene #13#10, aparecerá en varias líneas.
// Saludos