if not ShowMemoFields thenbegin Value := '(MEMO)'endelse Value := aField.AsString;
if not ShowMemoFields then begin Value := '(MEMO)' end else Value := Utf8ToAnsi(aField.AsString);