从Delphi控制台应用程序中的.RTF文件中提取纯文本？

Question

在没有可见控制台窗口的Delphi 10 Seattle控制台应用程序中，我需要从.RTF文件中提取纯文本。所以我写了这段代码：

function setFeedback() {
    var text_length = $('#textarea').val().length;
    var text_remaining = text_max - text_length;

    $('#textarea_feedback').html(text_remaining + ' characters remaining');
}

//Set on page load
setFeedback();

//Bind event
$('#textarea').on('keyup', setFeedback);

但是这会在运行时产生错误：

  

带有消息控件的EInvalidOperation没有父窗口

因为procedure ExtractPlainTextFromRTFFile(const ARTFFile, OutputTextFile: string); var RE: Vcl.ComCtrls.TRichEdit; begin RE := Vcl.ComCtrls.TRichEdit.Create(nil); try RE.Lines.LoadFromFile(ARTFFile); TFile.WriteAllText(OutputTextFile, RE.Text); finally RE.Free; end; end; 需要父窗口。

那么如何从Delphi控制台应用程序中的.RTF文件中提取纯文本？