fest eingestellte IP-Adressen mittels Programm ändern

[Kara]

Ich hab mal wieder ein IP-Problem.
Ist es möglich, eine fest eingestellte IP-Adresse mittels Delphi-Programm zu ändern?
Ich hab hier ein Programm, das das eigentlich tun sollte, es funktioniert aber nicht.
Ich kann verschiedene IPs eingeben, das System startet neu, aber es ändert sich nichts.
(Habe die automatische Zuweisung durch den DHCP ausgeschalten)

Das Programm ist nicht von mir, darum kann ich nur mutmaßen, was für den Eintrag gedacht ist.
Vielleicht dies hier:

Delphi-Quellcode:

begin
           MAC_CRS:=CMac + IdentPunkt;
           TSAP_SPS:=IdentPunkt + '_CRS';
           TSAP_CRS:='CRS_' + IdentPunkt;
           Ini.WriteString('IP', 'IP_SPS',IP_SPS);
           Ini.WriteString('IP', 'IP_CRS',IP_CRS);
           Ini.WriteString('IP', 'Subnet',Subnet_CRS);
           Ini.WriteString('IP', 'Gateway',Gateway_CRS);
           Ini.WriteString('Identpunkt', 'Identpunkt',IdentPunkt);
           Ini.WriteString('Ethernet', 'MAC_SPS',MAC_SPS);
           Ini.WriteString('Ethernet', 'MAC_CRS',MAC_CRS);
           Ini.WriteString('Ethernet', 'TSAP_SPS',TSAP_SPS);
           Ini.WriteString('Ethernet', 'TSAP_CRS',TSAP_CRS);
           Ini.WriteString('Kamera', 'Trigger',Trigger);
           if IP_CRS <> '' then
           begin
              registryEintrag;
              reeboot;
              halt;
           end;
         end
         else
         begin
           IP_SPS:=Ini.ReadString('IP', 'IP_SPS',IP_SPS);
           IP_CRS:=Ini.ReadString('IP', 'IP_CRS',IP_CRS);
           Subnet_CRS:=Ini.ReadString('IP', 'Subnet',Subnet_CRS);
           Gateway_CRS:=Ini.ReadString('IP', 'Gateway',Gateway_CRS);
           MAC_SPS:=Ini.ReadString('Ethernet', 'MAC_SPS',MAC_SPS);
           MAC_CRS:=Ini.ReadString('Ethernet', 'MAC_CRS',MAC_CRS);
           TSAP_SPS:=Ini.ReadString('Ethernet', 'TSAP_SPS',TSAP_SPS);
           TSAP_CRS:=Ini.ReadString('Ethernet', 'TSAP_CRS',TSAP_CRS);
           Trigger:=Ini.ReadString('Kamera', 'Trigger',Trigger);
           NurTNR:=Ini.ReadString('Modus', 'NurTNR',NurTNR);
         end;