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

 

 2]增加所有字段；

 

 3]添加事件；

 

 //    FDQuery1UserName: TWideMemoField;

procedure TForm1.FDQuery1UserNameGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
Text := Copy(FDQuery1UserName.AsString, 1, 50);
end;

4]效果；