 <span class="pascal_keyword">string</span>;
  <span class="pascal_keyword">out</span> ExtraDescription: TExtraDescription);
<span class="pascal_keyword">begin</span>
  ExtraDescription := TExtraDescription.Create;
  <span class="pascal_keyword">try</span>
    DoMessage(<span class="pascal_numeric">2</span>, mtInformation, <span class="pascal_string">'Now parsing file %s...'</span>, [FileName]);

    ExtraDescription.<span class="pascal_keyword">Name</span> := SCharsReplace(
      ChangeFileExt( ExtractFile