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