Problem mit Button in IE-Toolbar

[Remote1]

ich hab in meinen IE einen button eingefügt und mir dazu eine proz geschrieben:

Delphi-Quellcode:

procedure IEPlugin(NewGUID:TGUID);
var reg:tregistry;
begin
 try
  reg:=tregistry.Create;
  reg.RootKey:=HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\Extensions\'+guidtostring(NewGUID),true);
  reg.WriteString('ButtonText','WebSearch');
  reg.WriteString('MenuText','WebSearch');
  reg.WriteString('MenuStatusBar','Öffnet WebSearch mit aktuellem Inhalt');
  reg.WriteString('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
  reg.WriteString('Default Visible','Yes');
  reg.WriteString('Exec',application.ExeName);
  reg.WriteString('HotIcon',extractfilepath(application.ExeName)+'websearch.ico');
  reg.WriteString('Icon',extractfilepath(application.ExeName)+'websearch.ico');
 finally
  reg.CloseKey;
  reg.Free;
 end;
end;

das fkt ja auch alles (mein prog wird gestartet)

ich will aber, dass die aktuelle url mit übergeben wird und ich die dann mit paramstr() auslesen kann

habs auch schon so probiert:
reg.WriteString('Exec',application.ExeName+' -url "%1"'); da kommt nur immer die fehlermeldung, dass die datei nicht gefunden werden darf