IOTAEditorContent

  Result := '';
  var LEditorContent: IOTAEditorContent;
  if Supports(ASourceEditor, IOTAEditorContent, LEditorContent) then
    begin
      var LStatStg: TStatStg;
      var LStream := LEditorContent.GetContent;
      LStream.Stat(LStatStg, STATFLAG_NONAME);
      var LSize := LStatStg.cbSize;
      SetLength(Result, LSize);
      var LReader := ASourceEditor.CreateReader;
      var LPos: Longint := 0;
      LReader.GetText(LPos, @Result[1], LSize);
      VFileAge := LEditorContent.GetContentAge;
    end;