type TClass = class
procedure ToString;
begin
  inherited;
end;
end;
  
begin

end.