不清楚的错误，搞不明白，菜鸟就是菜鸟！

unit UntDanLink;interface
uses
    Windows;
type
    TComMend=Record
        Atype:Integer;
        IP:array[0..15]of Char;
        Content:array[0..255]of Char;
        end;    pLink=^Link;
    Link=Record
        Data:TComMend;
        Next:pLink;
    end;    TDanLink=Class
        Private
            Temp:pLink;
            Head:pLink;
        public
            Constructor Create; //创建
            Destructor Destroy;override;//撤消
            //procedure Add(NewMend:TComMend);//增加一个节点
            //procedure Delete()
        end;implementation{ TDanLink }constructor TDanLink.Create;
begin
    Temp:=nil;
    New(Head);
    Head^.Next := nil;
    Temp :=Head;
end;destructor TDanLink.Destroy;
begin
  Temp:=nil;
  Head:=nil;
  inherited;
end;功能：单链表的处理
问题：程序代码编译能够能过，但是调用Create时出错，，我晕。。不知道具体问题在哪儿。。
求教：我什么地方写错了，怎么会这样呢？太不给我这个菜鸟面子了，好惨啊。。