anchor.diff:    cSpacing = 3;
   var
     P: TPoint;
  +  RectAll: TRect;
   begin
     if StatusForm=nil 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:     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');
    StatusForm.Font.Name:= UiOps.VarFontName;
    StatusForm.Font.Size:= AppScaleFont(UiOps.VarFontSize);
    StatusForm.Font.Color:= GetAppColor('ListFont');
  
    if ASeconds<=0 then
    begin
  