Fórum Comando pelo delphi trava Windows XP #346401

procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(´netsh.exe "firewall add portopening protocol=TCP port=3050
name=""Firebird"" mode=ENABLE scope=SUBNET"´, SW_SHOW);
end;

 Abaixo tenho 2 codigos, ambos tem a mesma funcao, liberar a porta do firewall 3050 para uso do firebird em rede, porem a porta naum esta sendo liberada....alguem poderia analizar os codigos e verificar o que a de errado....acho que e de interesse de muitos, pois seria melhor ja deixar a porta liberada via delphi... 

> Primerio codigo: 

 procedure TForm1.Button2Click(Sender: TObject); 
 var 
 Reg:Tregistry; 
 CtrlSet:string; 
 begin 
 //Pega o ControlSet que esta sendo usado pelo windows 
 Reg.OpenKey(´SYSTEM\Select´, False); 
 CtrlSet := FormatFloat(´000´,Reg.ReadInteger(´Current´)); 
 Reg.CloseKey; 

 //Libera a porta 3050 usada pelo Firebird 
 Reg.OpenKey(´SYSTEM\ControlSet´ + CtrlSet +´\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List´, 
 True); 
 if (not Reg.ValueExists(´3050:TCP´)) 
 then Reg.WriteString(´3050:TCP´,´3050:TCP:*:Enabled:Firebird´); 
 Reg.CloseKey; 
 end; 


> Segundo codigo: 

 procedure TForm1.Button2Click(Sender: TObject); 
 begin 
 WinExec(´netsh.exe -c firewall add portopening protocol=TCP port=3050 name=Teste mode=ENABLE scope=SUBNET´, SW_HIDE);
end;