anchor.diff:      StatusFormLabel:= TLabel.Create(StatusForm);
       StatusFormLabel.Parent:= StatusForm;
       StatusFormLabel.Align:= alClient;
  +    StatusFormLabel.AutoSize:= true;
       StatusFormLabel.Alignment:= taCenter;
       StatusFormLabel.BorderSpacing.Around:= cSpacing;
  +    StatusFormLabel.ParentFont:= true;
     end;
   
     StatusForm.Color:= GetAppColor('ListBg');
  -  StatusFormLabel.Font.Name:= UiOps.VarFontName;
  -  StatusFormLabel.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  -  StatusFormLabel.Font.Color:= GetAppColor('ListFont');
  +  StatusForm.Font.Name:= UiOps.VarFontName;
  +  StatusForm.Font.Size:= AppScaleFont(UiOps.VarFontSize);
  +  StatusForm.Font.Color:= GetAppColor('ListFont');
   
     if ASeconds<=0 then
     begin
  
positive.code:   if ASeconds>cMaxSeconds then
      ASeconds:= cMaxSeconds;
  
    P:= PanelAll.ClientToScreen(Point(0, 0));
    StatusForm.Left:= P.X;
    StatusForm.Top:= P.Y;
    StatusFormLabel.Caption:= AText;
    StatusForm.Width:= PanelMain.Width;
    StatusForm.Height:= StatusFormLabel.Canvas.TextHeight('W') * (SFindCharCount(AText, #10)+1) + 2*cSpacing;
    StatusForm.Show;
  
    //StatusForm gets focus
    Self.SetFocus;
    Self.BringToFront;
  
  
negative.code:   cSpacing = 3;
  var
    P: TPoint;
    RectAll: TRect;
  begin
    if StatusForm=nil then
    begin
  