Delphi10.3的DBGrid中memo类型显示内容而不是(WIDEMEMO)

1]连接好数据库，并显示；

procedure tform1.formcreate(sender: tobject);
begin
fdquery1.connection := fdconnection1;
fdconnection1.loginprompt:=false; //取消登录提示框
fdconnection1.open('driverid=sqlite;database=test1.sqlite3.db');
end;

  2]增加所有字段；

  3]添加事件；

 //    fdquery1username: twidememofield;

procedure tform1.fdquery1usernamegettext(sender: tfield; var text: string;
  displaytext: boolean);
begin
text := copy(fdquery1username.asstring, 1, 50);
end;

4]效果；