split/frozen example lazarus+delphi