Delphi-PRAXiS - Delphi Dateiverknüpfung -> Fehler

Ich verknüpfe eine Dateiendung mit meinem Programm wie folt:

Delphi-Quellcode:

			  docTypeName := 'Mein Programm';

  with Reg do

  begin

    RootKey := HKEY_CLASSES_ROOT;

    OpenKey(Extension, TRUE);

    WriteString('', docTypeName);

    DeleteKey('Shell');

    DeleteKey('DefaultIcon');

    CloseKey;

    OpenKey(docTypeName + '\Shell', True);

    WriteString('', 'Open');

    CloseKey;

    OpenKey(docTypeName + '\Shell\Open\Command', True);

    WriteString('', '"' + Application.ExeName + '" "%1"');

    CloseKey;

    OpenKey(docTypeName + '\DefaultIcon', True);

    WriteString('', Application.ExeName + ',1');

    CloseKey;

  end;

  Reg.Free;

Wenn ich jetzt z.B. die Dateiendung .php mit meinem Programm verknüpfe und dann im irc-Chat (z.B. über mIRC) einen Link mit Endung .php aufrufe, wird mein Programm geöffnet und nicht der Browser.
Wie kann ich den Fehler beheben ?