TLazOpenDialog
pt
WSRegisterClass
pt
DoExecute
pt
DoInitialize
Create