library NewClasses;uses
  SysUtils,
  Classes,
  DBTables,
  DB,
  StdCtrls;{$R *.res}procedure NewClass(ClassName, URL: string);
var Table: TTable;
begin
  Table := TTable.Create(Self);
  with Table do begin
    //do something
  end;
end;begin
end.系统提示:[Error] NewClasses.dpr(15): Undeclared identifier: 'Self'如何通过编译呢?