Link mit ShellExecute aufrufen

[wp_xxyyzz]

Ich möchte mit D7 auf Win2k folgendermaßen per ShellExecute eine Internetseite aufrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fn : string;
begin
  fn := 'http://www.delphipraxis.net/';
  ShellExecute(Handle, 'open', PChar(fn), '', '', SW_NORMAL);
end;

Beim Starten meldet sich, verständlicherweise, die Firewall, dass mein Programm ins Internet möchte. Wenn ich mich verklicke und dies verbiete, läuft mein Programm auf den ersten Blick normal weiter, ich kann es aber nicht mehr schließen. Wie kann man das verhindern?

[edit=SirThornberry]Code-Tags durch Delphi-Tags ersetzt - Mfg, SirThornberry[/edit]