Pascal-Code in Delphi-Code umwandeln?

[API]

Hallo

Ich habe den Code mehr oder weniger 1:1 nach Delphi umgewandelt.
Die Procedure Try habe ich in Probiere umbenannt, da Try ein reserviertes Wort ist.
Den Code laesst sich bestimmt schoener schreiben, aber das ueberlasse ich dir