TStreamHelper = class helper for TStream public procedure ReadCheck(var ABuffer; ACount: Integer); procedure WriteCheck(const ABuffer; ACount: Integer); end; TCustomMemoryStreamHelper = class helper(TStreamHelper) for TCustomMemoryStream public procedure DeleteFirst(ASize: Integer); end;
type MyHelper = record helper(TStringHelper) for String function TestIt : String; end;