delphi显示Sqlite的Text字段

procedure Mainform.SetField(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Text := Sender.AsString ;
end;

procedure TClientform.UniQuery1AfterOpen(DataSet: TDataSet);
var
  i :Integer ;
begin
  with DataSet do
  begin
    DisableControls ;
    try
      for i := 0 to FieldCount -1 do
      begin
        if Fields[i] is TMemoField then
          Fields[i].OnGetText := Mainform.SetField;
      end;
    finally
      EnableControls ;
    end;
  end;
end;