{ %fail }

{$ifdef fpc}{$mode delphi}{$endif}

type
  tc1=class
    property Loop:integer read Loop;
  end;

begin
end.