TDog

TDog =
class(TAnimal)
  private
    FName: string;
  protected
    procedure SetName(const Name: string);
  public
    property Name: string read FName write SetName;
end;