Классы

[Mickle]

Привет всем!
Проблема такак кто знает подскажите необходимо сделать следующее:
Открыть модуль, не связанный с формой и поместить в него три класса:
Класс Animal, который содержит в разделе public объявление конструктора Create и объявление метода-функции: Verse – звук. Тип результата возвращаемого функцией – string. Метод Verse объявить виртуальным и абстрактным.
Я попробывал как сделано в книжке но выдает ошибку

unit Unit2;
interface
Type
Animal=class
public
Constructor Creat;<-Вот здесь или я что-то не понимаю
private
end;
implementation
end.
подскажите пожалуйста
Зарание благодарю.

[Shuraken]

unit UnitAnimal; //надо давать осмысленные названия

interface

type
TAnimal=class(TObject) //принято названия классов начинать с буквы T, и если ты собираешься сделать этот класс родительским для других, то тогда тогда лучше указать родителя для класса;
public
constructor Create; override; //переопределим родительский конструктор под свой
function Verse: string; virtual; abstract; //такое объявление обозначает, что во всех классах-потомках от данного класса эта функция должна быть определена
end;

например...
type
TCat = class(TAnimal)
public
constructor Create; override;
function Verse: string; override;
end;

Почитай учебники, это азы ООП - объектно-ориентированного программирования, там все хорошо и доступно описано.