一下代码怎么会有这样的问题哪？

Question

unit reg;interfaceuses
  Windows, Messages,registry, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
var reg
:tregistry;
 d:tdate;
 buffer:pchar;
 t:ttime;
begin
        buffer:='101010';
        d:=date;
        t:=time;
        reg:=Tregistry.Creat;
try
        reg.rootkey:=hkey_current_user;
if
        reg.openkey('test',true)
then
begin
        reg.writecurrency('currency',100);
        reg.writebinarydata('binarydata',buffer,10);end;
finally
        reg.closekey;
        reg.free;
end;end;end.
此程序主要是往注册表里写入内容，hkey_current_user\text\下写入两个键值项
编译的 时候怎么硕没有声明tregistry.creat哪？

Answer 1

reg:=Tregistry.Creat
reg:=tregistry.create;

Answer 2

reg:=Tregistry.Creat;  <------编译到这句你怎么会通过呢？Reg := TRegistry.Create;