unit uw2706a;
{$mode delphi}
interface
uses
  uw2706b;

type
  TClassA = class
  protected
    procedure CT(const X: TX);
  end;


implementation

procedure TClassA.CT(const X: TX);
begin
end;

end.