anchor.diff:        if fDecimals > 0 then
         begin
           if Pos(DecimalSeparator, fText) = 0 then
  +          begin
             fText := fText + DecimalSeparator;
  +          Inc(FCursorPos);
  +          end;
           if UTF8Length(fText)-Pos(DecimalSeparator, fText) < fDecimals then
             while UTF8Length(fText)-Pos(DecimalSeparator, fText) < fDecimals do
             begin
  
positive.code: end;
  
  procedure TfpgEditCurrency.SetValue(const AValue: Currency);
  begin
    try
      fText := CurrToStr(AValue);
    except
      on E: EConvertError do
        Text := '';
  
negative.code:     property    OnMouseExit;
    end;
  
  
    TfpgEditCurrency = class(TfpgBaseNumericEdit)
    private
      fDecimals: integer;
  