Delphi - Problema de principiantes

No se que tan de principiantes sea, sucede que yo tengo el siguiente codigo de ejemplo:

unit: inventos;

interface
type
TPatito=class;
procedure hasAlgoConElPato;
end;

type
TGallina=class:
procedure intentaVolar;
end;

implementacion
procedure TPatito.hasAlgoConElPato;
var
--> unaGallina: TGallina;
begin
unaGallina:=TGallina.create(nil);
showMessage('Hice algo');
unaGallina.intentaVolar;
end;

prodecure TGallina.intentaVolar;
begin
showMessage('EstoyVolando');
end;

end.

Y me marca error al en donde puse el --> y dice que EResNotFound with message 'Resource TGallina not found' en runtime, pero cuando compila no me marca ningun error, y no tengo ni idea de como corregirlo sin poner TGallina en otra unit

No se como quieres llamar al "TPatito" pero logré lo siguiente

*****************El siguiente codigo pertenece a la unidad 1 donde hay una forma
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
unit2.llamaAlPato;
end;

end.

**********************El siguiente codigo va en la unit2, para ti unit Inventos
unit Unit2;

interface
uses messages, dialogs;

procedure llamaAlPato;

implementation

type
TPatito=class
procedure hasAlgoConElPato;
end;

type
TGallina=class
procedure intentaVolar;
end;

procedure TPatito.hasAlgoConElPato;
var
unaGallina: TGallina;
begin
unaGallina:=TGallina.create();
showMessage('Hice algo');
unaGallina.intentaVolar;
end;

procedure TGallina.intentaVolar;
begin
showMessage('Estoy Volando');
end;

procedure llamaAlPato;
var pato:TPatito;
begin
pato.hasAlgoConElPato;
end;

end.