Ohne von dir gesagt zu bekommen, was genau nicht funktioniert würde ich mal pi*Daumen darauf tippen, dass der Knackpunkt hier liegt:
procedure Iplesen ( IP : String);
muss in
procedure Iplesen (var IP : String);
geändert werden. Sonst kannst du in der Prozedur den Wert von
IP nicht verändern (glaub ich).
Ansonsten noch zwei Dinge:
Sag bitte genauer was nicht funktioniert.
UND:
Neue Frage -> neuer Thread
Bis dann,
S - tefano