Object Pascal Programmer

Do you know a class like this?

  TProgrammer = OBJECT(THuman)
  
          fNeedsCaffeine       :  BOOLEAN;
          fReadsThings         :  BOOLEAN;
          fKeepsOddHours       :  BOOLEAN;
          fHasPocketProctector :  BOOLEAN;
    
          FUNCTION  TProgrammer.Eat(Junk:Food): SIZE; OVERRIDE;
          FUNCTION  TProgrammer.DealWithHumans; OVERRIDE;
          FUNCTION  TProgrammer.CollectTechnoJunk;
  
       END;