Include file README.md into About window (Delphi) -- README.md will be compiled inside .exe file and displayed on About window

README.md_displayed_in_About_window.pas

uses
	ActiveX, MSHTML, SHDocVw, MarkdownCommonMark, MarkdownProcessor; // uses https://github.com/grahamegrieve/delphi-markdown

procedure TForm1.Button1Click(Sender: TObject);
var
	ResStream: TResourceStream;
	StringStream: TStringStream;
	FormAbout: TForm;
	WebBrowser1: TWebBrowser;
	commonmark : TMarkdownProcessor;
	Doc: IHTMLDocument2;
	psa: PSafeArray;
	v: variant;
	s: String;
begin
	ResStream := TResourceStream.Create( hInstance, 'READMEText', RT_RCDATA );
	StringStream := TStringStream.Create();
	try
		StringStream.LoadFromStream( ResStream );
		READMEstring := Utf8ToAnsi( StringStream.DataString ); // Utf8ToAnsi could be unnecessary
	finally
		FreeAndNil( ResStream );
		FreeAndNil( StringStream );
	end;
	
	FormAbout := TForm.Create(nil);
	try
		FormAbout.BorderStyle := bsDialog;
		FormAbout.Caption := 'About window';
		FormAbout.Position := poScreenCenter;
		FormAbout.ClientWidth := 800;
		FormAbout.ClientHeight := 600;

		WebBrowser1 := TWebBrowser.Create( FormAbout );
		TWinControl( WebBrowser1 ).Name := 'WebBrowser1';
		TWinControl( WebBrowser1 ).Parent := FormAbout;
		WebBrowser1.Align := alclient;

		commonmark := TMarkdownProcessor.CreateDialect(mdCommonMark);

		s := commonmark.process( READMEstring );
		memo2.Text := s;
		WebBrowser1.Navigate( 'about:blank' );
		v := VarArrayCreate( [0, 0], varVariant );
		v[ 0 ] := s;
		psa := PSafeArray( TVarData( v ).VArray );
		Doc := WebBrowser1.Document as IHTMLDocument2;
		Doc.write( psa );
	        FormAbout.ShowModal();
	finally
		commonmark.Free();
		FormAbout.Free();
	end;
end;

myExtraRes.rc

READMEText RCDATA README.md