anchor.diff:                      (Font.Height + LineSpace) * i, FWrappedText[i], Enabled);
                 tlBottom:
                   fpgStyle.DrawString(Canvas, Width - Font.TextWidth(FWrappedText[i]),
  -                    Height - ((Font.Height + LineSpace) * FWrappedText.Count)+ ((Font.Height + LineSpace) * i),
  +                    Height - (Font.Height * FWrappedText.Count) - (LineSpace * Pred(FWrappedText.Count)) + ((Font.Height + LineSpace) * i),
                       FWrappedText[i], Enabled);
                 tlCenter:
                   fpgStyle.DrawString(Canvas, Width - Font.TextWidth(FWrappedText[i]),
  -                    ((Height - (Font.Height + LineSpace) * FWrappedText.Count) div 2) + ((Font.Height + LineSpace) * i),
  +                    ((Height - (Font.Height * FWrappedText.Count) - (LineSpace * Pred(FWrappedText.Count))) div 2) + ((Font.Height + LineSpace) * i),
                       FWrappedText[i], Enabled);
                 end;
   
  
positive.code:                     (Font.Height + LineSpace) * i, FWrappedText[i], Enabled);
                tlBottom:
                  fpgStyle.DrawString(Canvas, (Width - Font.TextWidth(FWrappedText[i])) div 2,
                      Height - ((Font.Height + LineSpace) * FWrappedText.Count)+ ((Font.Height + LineSpace) * i),
                      FWrappedText[i], Enabled);
                tlCenter:
                  fpgStyle.DrawString(Canvas, (Width - Font.TextWidth(FWrappedText[i])) div 2,
                      ((Height - (Font.Height + LineSpace) * FWrappedText.Count) div 2) + ((Font.Height + LineSpace) * i),
                      FWrappedText[i], Enabled);
                end;
          end;
    end
  
negative.code:     property    BackgroundColor;
      property    FontDesc;
      property    Layout;
      property    LineSpace;
      property    Text;
      property    TextColor;
      property    Width;
  