IPs aufteilen

[BackOrifice]

Ich hab' nochmal ne Frage
Wollte dazu keinen neuen Thread aufmachen, weils relativ kleines Prob ist:

Ich habe 2 IP Adresse im Binären String; durch eine AND-Operation ergibt sich daraus eine neue (binäre) IP-Adresse.
Beide Adressen sind jeweils nur 32bit groß und trotzdem schmiert mir jedes mal das Programm ab ('111111111110100101010101010usw.. ist kein gültiger Integerwert').

Ich hab bereits schon INT64 versucht, bringt leider nichts

Hiermal n kleiner Ausschnitt ausm Quelltext (inzwischen so oft umgeändert..):

Code:

function Netzadresse (IP_adresse_bin, Netzmaske_bin : string) : string;
var  Netz1,Netz3,Netz4 : int64;
     Netzadresse_2 : string;
begin
  Netz1:=0;      //<-- auch sehr lustig: Nach der Anweisung hat die Var immer noch einen Wert von -48546453
  Netz1:=StrToInt(IP_adresse_bin);     //<-- ab hier der Abbruch
  Netz3:=StrToInt(Netzmaske_bin);
  Netz4:=Netz1 and Netz3;
  Netzadresse_2:=IntToStr(Netz4);
  ShowMessage('Netzadresse: ' + Netz2);
  Netzadresse:=Netzadresse_2
end;

Jmd. ne Idee?