TLazOpenDialog

pt 

WSRegisterClass

pt 

DoExecute

pt 

DoInitialize

 

Create