initial delphi port (retry)

I hate git