Классы в Delphi.

[weader4]

У меня есть код программы и модуль написан к ней там же загвоздка, ряд непонятных мне еще ошибок(На Дельфе пишу 2 день.)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Unit3;

type
    TForm1 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
  MyAnimal: TAnimal;
  public
    { Public declarations }
  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

  procedure TForm1.Form1OnCreate(Sender: TObject);
begin
  MyAnimal := TDog.Create;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  MyAnimal.Free;
  MyAnimal:=TAnimal.Create;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  MyAnimal.Free;
  MyAnimal:=TAnimal.Create;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
  MyAnimal.Free;
  MyAnimal:=TAnimal.Create;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := MyAnimal.Voice;
end;

end.


Модуль


unit Unit3;

interface
type
  TAnimal=class
private
public
  constructor Create;
  function Kind: string;
  function Voice: string; virtual; abstract;
end;
type
  TDog=class(TAnimal)

private
public
  constructor Create;
  function Voice: string; override;
  function Eat: string; virtual;
end;
type
  TCat = class (TAnimal)
private

public
     constructor Create;

end;
implementation
Constructor TAnimal.Create;
Var Kind: string;
Begin
    Kind := 'An Animal';
end;
Constructor Tdog.Create;
var Kind,Voice,Eat:string;
Begin
     Kind:='An anymal';
     Voice := 'Gav!';
     Eat:='A meat, please';
end;
Constructor TCat.Create;
var Kind,Voice,Eat:string;
Begin
    Kind := 'An anymal';
    Voice:='Mieow!';
    Eat:='A meat, please';
end;
end.

Ошибки:


[Error] Unit3.pas(9): Unsatisfied forward or external declaration: 'TAnimal.Kind'
[Error] Unit3.pas(18): Unsatisfied forward or external declaration: 'TDog.Voice'
[Error] Unit3.pas(19): Unsatisfied forward or external declaration: 'TDog.Eat'
[Fatal Error] Unit1.pas(7): Could not compile used unit 'Unit3.pas'

[ArtGrek]

есть такая кнопочка когда сообшение пишеш #,
нажми правка и оформи как надо свое сообшение, ато его читать не реально

[Пепел Феникса]

скажите честно, а вы не пробовали перевести ошибку на русский язык?
там вполне четко написано.

у вас метод обьявлен, но где его реализация?

[GunSmoker]

Есть мнение, что надо взять в руки книжку. Или заплатить денюжку.