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