delphi打开JPG文件的问题(50分)

在delphi 里面用Image控件显示jpg文件，如何能做到双击这个jpg图片就能用系统默认的浏览图片的程序，比如acdsee等来打开这个图片？

编辑注册表
RootKey := HKEY_CLASSES_ROOT;
OpenKey('/' + FileExt, True);
WriteString('', ExeName + AFileExt);
OpenKey('/' + ExeName + FileExt + '/Shell/Open/Command', True);
WriteString('', ParamStr(0) + ' "%1"');

自己解决了。
if image1.Picture.Graphic<>NIL then
begin
image1.Picture.Graphic.SaveToFile('c:/TCAD.JPG');
sFile:='c:/TCAD.JPG';

shellexecute(handle,'open',pchar(sFile),'','',sw_show);
end;