@@ -3,6 +3,7 @@
type
c=class
function Byte: Byte; virtual; abstract;
+ function P(b: Byte); virtual; abstract;
end;
begin