Создать проект, реализующий связь двух классов Животные и Собаки, а также придать им новый метод ГОЛОС (Делфи 7)

[программирование]

добрый вечер, уважаемые программисты. помогите,пожалуйста, написать программу.

вот задание:
Создать проект, реализующий связь двух классов Животные и Собаки, а также придать им новый метод ГОЛОС. (В форме должно быть кнопка ЗВУК, что позволяет вывести на форму сообщения MyAnimal.Voice)

вот код, но его нужно ещё доделывать:
ANIMF.PAS

type
  TFormAnimals = class(TForm)
    LabelVoice: TLabel;
    BtnVoice: TButton;
    RbtnAnimal: TRadioButton;
    RbtnDog: TRadioButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure BtnVoiceClick(Sender: TObject);
    procedure RbtnAnimalClick(Sender: TObject);
    procedure RbtnDogClick(Sender: TObject);
  private
    MyAnimal: TAnimal;
  end;

ANIM.PAS

type
  TAnimal = class
  public
    constructor Create;
    function GetKind: string;
    function Voice: string; virtual;
  private
    Kind: string;
  end;

  TDog = class (TAnimal)
  public
    constructor Create;
    function Voice: string; override;
  end;
…
uses
  MMSystem;
…
function TAnimal.Voice: string;
begin
  Voice := 'Voice of the animal';
  PlaySound ('Anim.wav', 0, snd_Async);
end;
…
function TDog.Voice: string;
begin
  Voice := 'Arf Arf';
  PlaySound ('dog.wav', 0, snd_Async);
end;

заранее спасибо всем за помощь.

[Stilet]

Я так понимаю доделывать его нам нужно?
Сразу вопрос: Чем не устраивает этот код и что нужно доделывать?

[программирование]

я не понимаю, как это можно совместить?

а что разве тут всё доделано? просто дали делать задание и этот код тоже и больше ничего не сказали.

[Stilet]

я не понимаю, как это можно совместить?

Без базисных знаний ООП не поймешь.
Создавай форму. Кидай на нее компоненты - Две RadioButton одну кнопку и одну Лабель. Пока все.
Далее открой методичку и постарайся вникнуть в то что написано про ООП. Про наследование в частности.
Так же придется почитать о том как создавать объекты.
Мое мнение - этот код для тебя сейчас бесполезен, раз основных понятий ты не знаешь.
И вообще надо было изучение не с формы начинать а с консольного проекта. Рано тебе в формах программировать.