delphi and {$IFDEF FPC} trouble