今天碰到一个问题，Abstract Error错误，查了挺久的。原因如下：

   调用了纯虚函数，而且这个继承类没有完成这个纯虚函数，才导致这个错误。

var
  s: TStrings;
begin
  s := TStrings.Create;
  s.Add('1');
  s.Add('2');
  ShowMessage(s.Text);
end;
{以上程序编译可以通过，运行时就出现Abstract Error错误，把s声明为TStringList就可以，所以你要找错误的原因，可以把这两种类调出来比较一下

在你的代码里面调用了纯虚拟函数。要重载。

type 
    TAA   =   class 
    protected 
        procedure   aa1;   virtual;   abstract;   //这是纯虚拟函数 
    public   
        procedure   aa2;   virtual;   abstract;   //这也是纯虚拟函数 
    end; 
  
    TBB   =   class(TAA) 
    protected 
        procedure   aa1;   override;   //实现纯虚拟函数 
    public 
        procedure   aa2;   override;   //实现纯虚拟函数 
    end; 

impl... 
procedure   TBB.aa1; 
begin 
end; 

procedure   TBB.aa2; 
begin 
end; 

/////////////////

type 
    TAA   =   class 
    protected 
        procedure   aa1;   virtual;   abstract;   //这是纯虚拟函数 
    public   
        procedure   aa2;   virtual;   abstract;   //这也是纯虚拟函数，   
                    //在TAA中不实现该方法只声明   该方法的接口参数；留给子类去实现。 
        procedure   aa3;   virtual;   //这是虚拟函数，在中必须实现该方法 
    end;