delphi - How to use TVirtualStringTree to display multi-line items and "expanded" select item? -

I want to take a look at the image below (which I know was using TVchartial stringry) , But I did not find any example code for how to complete heaven heaven.

Nobody knows how I can get a multi-line item like the example given below, and can "expand" the selected item to show more line?

Please take a look at VT Demo \ Advenced.

Edit: is a download page and the third item is demo.