проект реализующий связь двух классов, метод голос. Делфи 7. (есть код программы)

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

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

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


вот отрывок кода КЛАССА ЖИВОТНЫЕ:

PHP код:

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; 


отрывок кода КЛАССА СОБАКИ:

PHP код:

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, вы следите за тем, что я пишу?

вы не могли бы мне помочь разобраться в задании.

[Stilet]

вы следите за тем, что я пишу?

Ты даже не представляешь насколько внимательно: http://www.programmersforum.ru/showthread.php?t=244486

Теперь по теме:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses      MMSystem,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type
  { TAnimal }

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

 { TDog }

 TDog = class (TAnimal)
 public
   constructor Create;
   function Voice: string; override;
 end;
  { TForm1 }

  TForm1= class(TForm)
    BtnVoice: TButton;
    LabelVoice: TLabel;
    RbtnAnimal: TRadioButton;
    RbtnDog: TRadioButton;
    procedure BtnVoiceClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure RbtnAnimalChange(Sender: TObject);
    procedure RbtnDogChange(Sender: TObject);
  private
    animal:TAnimal;
    dog:TDog;
    { private declarations }
  public
    { public declarations }
  end;


  var
  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
 animal:=TAnimal.Create; dog:=TDog.Create;
end;

procedure TForm1.BtnVoiceClick(Sender: TObject);
begin
  //
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  animal.Free;
  dog.Free;
end;

procedure TForm1.RbtnAnimalChange(Sender: TObject);
begin
  animal.Voice;
end;

procedure TForm1.RbtnDogChange(Sender: TObject);
begin
  dog.Voice;
end;

{ TDog }

constructor TDog.Create;
begin

end;

function TDog.Voice: string;
begin
  Result:=inherited Voice;
  Voice := 'Arf Arf';
  PlaySound ('dog.wav', 0, snd_Async);
end;

{$R *.lfm}

{ TAnimal }

constructor TAnimal.Create;
begin

end;

function TAnimal.GetKind: string;
begin

end;

function TAnimal.Voice: string;
begin
    Voice := 'Voice of the animal';
  PlaySound ('Anim.wav', 0, snd_Async);
end;

end.

Легче стало? Тебе остается сущий пустяк - использовать то что я написал.
И предупреждаю - следующий кросспост по этой же теме будет удален. Хочешь продолжать тему - пиши в эту.