MoveToField command

function TWPCustomRtfEdit.MoveToField(const fieldname: string; from_start: Boolean = TRUE): Boolean;
var par: TParagraph; i: Integer;
  LocateOptions: TWPCodeLocateOptions;
begin
  LocateOptions := [wpCompareName];
  if not from_start then include(LocateOptions, wpStartAtCursorPosition);
  if CodeLocate(par, i, fieldname, wpobjMergeField, [wpobjIsOpening], LocateOptions) then
  begin
    Result := TextCursor.MoveTo(par,i);
  end
  else Result := FALSE;
end;