TJvFullColorDialog

pt 

FormApply

pt 

FormShow

pt 

FormClose

Create

Execute