Lazarus rewrite of Packet

[FRex]

I've rewritten(not bound) sf::Packet in Free Pascal for my own use, just with UTF-8 strings though, no wide or UTF32 ones. It's a bit less pretty and has read and write based on C API and might contain bugs since I'm (re)learning 'Delphi compatible Object Pascal' after knowing small bits of Delphi long ago.
Here's the unit: https://gist.github.com/FRex/7275301
Here are screens of example Lazarus app that sends over TCP to a c++ command line app that will just print and then echo back a thanks to Lazarus side:
http://oi39.tinypic.com/34ns6px.jpg
http://oi39.tinypic.com/2ivz442.jpg