根据文件的扩展名取得关联图标(100分)

用下面的方法可以读出中的图标,可是我不知道写到注册表里怎么写,还请富翁们讲解一下
procedure TForm1.Button4Click(Sender: TObject);
var SourceIcon:TIcon;
SourceFile:String;
registerTemp : TRegistry;
begin
SourceIcon:=TIcon.Create;
sourcefile:='E:/delphi_test/ini读写/Project1.exe';
SourceIcon.Handle:=ExtractIcon(handle,PChar(SourceFile),0);//选择第一个图
Image1.Picture.Icon.Handle :=ExtractIcon(Hinstance, pchar(SourceFile), 0);
end;

可是我不知道写到注册表里怎么写是什么意思，我都晕了。