Вызов Метода из др. модуля

[Mickle]

Привет всем!
Проблема такая как можно в модуле формы вызвать метод Verse с другого модуля чтобы при нажатие не кнопку в label-е отображалась надпись 'Mieow' функции function Dog.Verse: string; вот пример модуля

unit Unit2;
interface
Type
 //Базовый класс ТAnimal
  TAnimal=Class
  public
    constructor Create;
    function Verse: string; virtual; 

abstract;//звук издаваемый животным
  private
    Kind : string;
end;
 //Потомок класса TAnimal
  Dog=class(TAnimal)
  Public
   constructor Create;
   function Verse: string;
   function Eat: string;virtual;//Пища животного
end;
implementation
//Базовый класс TAnimal
constructor TAnimal.create;
begin
  Kind:='An Animal';
end;
//Класс Dog
constructor Dog.create;
begin
  Kind:='Dog';
end;

function Dog.Verse: string;
Begin
  Verse:='Mieow';//Звук животного
end;

function Dog.Eat: string;
Begin
  Eat:='Meat'; //Название пищи
end;

что то разобраться не могу
подскажите пожалуйста
Зарание благодарю.

[Shuraken]

unit Unit1

interface

uses Unit2
type
  TForm1 = class(TForm)
...
private
   FDog: TDog;
public;

end;

procedure Form1.FormCreate(Sender: TObject);
begin
FDog := TDog.Create;
end;

procedure Form1.Destroy(Sender: TObject);
begin
FreeAndNil(FDog);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label.Caption := FDog.Verse;
end;

[Mickle]

Большое спасибо Shuraken Благодарю.