Problem mit Tcp/Ip Verbindung zwischen Delphi und Blitz3D

[spiderb]

Code:

Global strmGame=OpenTCPStream("127.0.0.1",8080)
Global x =  0
Global b = 42

Global spielen = True 

If strmGame<>0 Then 
Print "Client Connected successfully."
Else
Print "Server failed to connect."
WaitKey 
End
End If


Repeat 


send()

Until KeyHit(1)




Function send()
If spielen = True 
For i = 1 To b 
WriteString strmGame,"hallo" 
 

x  = x  + 1


If x > 42
b = -1 
End If  




Print "Message" + x
Delay 1500
Next 
End If 

If b < 0
WriteString strmGame,"Restzüge : " + (42 - x)
WriteString strmGame,"---" 
WriteString strmGame,"-Ende-" 
CloseTCPStream strStream
Print "Disconnection successfully." 
Delay 60000
End If 

End Function

so in etwa sieht das bei blitz aus
wie kann ich denn die denn einzelnd auslesen? ich hab leider kaum Ahnung in dem bereich

Muss ich eigentlich noch irgendwie einen IOHandler erstellen?

mfg