Creating Associated File Types in Delphi

Is is possible to create Associated File Types using Delphi 2, I can do it
from Explorer but I would like to do it for the user automatically.

Please help

thank you
Michael