有关两个单元间访问的问题，请指教(30分)

一个简单的例子：

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
test;
end;

end.


unit Unit2;
interface
type
Angel = Class
procedure test();
private
{ Private declarations }
public
{ Public declarations }
end;



implementation

uses Unit1;



{ Angel }

procedure Angel.test;
begin
form1.color:=form1.Color;
end;

end.


就这两个单元，自定义声明的过程在unit1单元中无法访问！不知道究竟是为什么嘛，高手们帮忙看看，给段正确的两个unit 代码好嘛？谢谢

定义一个对象

a: Angel;
引用时
a := Angel.Create;
a.test;
a.free;

unit Unit2;
interface
type
Angel = Class
private
{ Private declarations }
public
{ Public declarations }
procedure test();
end;



implementation

uses Unit1;



{ Angel }

procedure Angel.test;
begin
form1.color:=form1.Color;
end;

end.

影子，你编译过嘛？能用嘛？

过程在unit2中，调用在unit1中！

可你说的 a:angel 这里好像都不能通过，不知道为何

你是否能给我个代码看看？？ 要整个unit代码，谢谢

需要定义在 public 或 published 中

你在form1里这样访问：
procedure TForm1.FormCreate(Sender: TObject);
begin
Angel.create.test;
end;

等了一下午了，终于等到一个能编译过去的答案了！谢谢你，橡皮树！也谢谢影子。。