TPreviewFileDialog

pt 

WSRegisterClass

pt 

CreatePreviewControl

pt 

InitPreviewControl

 

Execute

 

Create