A delphjc script.