type
  Icell = interface
    property State: integer read write;
  end;

  Cell = class(Icell)
  end;

begin
end.