// FreePascal must be in Delphi mode
{$MODE delphi}