Syntax Test

Testing

unit Ants;

interface

type

  TAnt = class(TObject)
  private
    FStatus: integer;
  public
    property Status: integer read FStatus write FStatus;
  end;

implementation

end.