{$ifdef fpc}
{$mode delphi}
{$endif}

unit usprot2;

interface

uses
  usprot1;

type
  tchild1 = class(tbase)
  end;

implementation

end.