Produce Delphi Code that will Parse a file with a given BNF format

Question

Is there parser code or a parser component for Delphi or a program that will accept BNF (Backus-Naur Form) notation as input and produce Delphi (or pascal) code to do the parsing?

The reason for this is that I am going to be attempting to perfectly parse data sets following various versions of the GEDCOM standard (used for genealogy), and will need to process the file from state to state as tokens are reached. I would prefer an automated program to do the grunt work of setting up the basic pascal code to do the state to state processing for me.

Otherwise, I'll have to manually build the state structures myself.

I did see the following question (and TinyPG looks good, but I need Delphi code): Parser-generator that outputs C# given a BNF grammar?

If there isn't such a beast, are there any other tools available that will make this task easier?