anchor.diff:              case FLayout of
                 tlTop:
                   fpgStyle.DrawString(Canvas, (Width - Font.TextWidth(FWrappedText[i])) div 2,
  -                    (Font.Height + 2) * i, FWrappedText[i], Enabled);
  +                    (Font.Height + LineSpace) * i, FWrappedText[i], Enabled);
                 tlBottom:
                   fpgStyle.DrawString(Canvas, (Width - Font.TextWidth(FWrappedText[i])) div 2,
  -                    Height - ((Font.Height + 2) * FWrappedText.Count)+ ((Font.Height + 2) * i),
  +                    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 + 2) * FWrappedText.Count) div 2) + ((Font.Height + 2) * i),
  +                    ((Height - (Font.Height + LineSpace) * FWrappedText.Count) div 2) + ((Font.Height + LineSpace) * i),
                       FWrappedText[i], Enabled);
                 end;
           end;
  
positive.code:   FAlignment   := taLeftJustify;
    FWrapText    := False;
    FWrappedText := TStringList.Create;
  end;
  
  destructor TfpgCustomLabel.Destroy;
  
negative.code:     property    Layout: TLayout read FLayout write SetLayout default tlTop;
      property    FontDesc: string read GetFontDesc write SetFontDesc;
      property    Text: string read FText write SetText;
      property    LineSpace: integer read FLineSpace write FLineSpace default 2;
    public
      constructor Create(AOwner: TComponent); override;
      destructor  Destroy; override;
  