Übersetzen eines C++ Codeschnipsels nach Delphi

[ringli]

Sorry, beim Einfügen des C-Codes ist irgendwie ein bisschen was abhanden gekommen. Habe meinen ersten Beitrag entsprechend editiert. Vielleicht kann jetzt jemand meine Übersetzung nachvollziehen und mich auf evtl. Fehler hinweisen.