anchor.diff:      memSample: TfpgMemo;
       procedure   OnCollectionChanged(Sender: TObject);
       procedure   OnParamChange(Sender: TObject);
  +    procedure   OnSameTextChanged(Sender: TObject);
       procedure   CreateFontList;
       procedure   CreateFontAliasList;
       procedure   SetupUI(AMode: Byte);
  
positive.code:     memSample.Lines.Add(fpgGetNamedFontDesc(UTF8Copy(fdesc, 2, UTF8Length(fdesc)-1)));
  end;
  
  procedure TfpgFontSelectDialog.CreateFontList;
  var
    fl: TStringList;
  
negative.code:     SetPosition(8, 288, 584, 65);
      Text := FSampleText;
      Anchors := [anLeft, anTop, anRight, anBottom];
      OnChange := @OnSameTextChanged;
    end;
  
    CreateFontList;
  