Code:

Procedure CreateExplorerButton(Path: String); 

Const Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\'; 
Var Reg : TRegistry; 
Path: String; 
Path1: String; 
Merge: String; 
Begin 

Path := 'c:\your program path'; 

Reg := TRegistry.CReate; 
try 
With Reg Do 
Begin 
RootKey := HKEY_LOCAL_MACHINE; 
Path1 := 'Software\Microsoft\Internet Explorer\Extensions'; 
Merge := Path1 + Tagit; 
OPenKey(Merge,True); 
WriteString('ButtonText','ButtonText'); 
WriteString('MenuText','Tools Menu Item'); 
WriteString('MenuStatusBar','Run Script'); 
WriteString('ClSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); 
WriteString('Default Visible','Yes'); 
WriteString('Exec',Path+'\ProgramName.exe'); 
WriteString('HotIcon',',4'); //mouseover ikona
WriteString('Icon',',4');  //ikona

end 
Finally 
Reg.CloseKey; 
Reg.Free; 
End; 
//ja sam morao da menja CLSID, nije 'teo sa ovim starim