{

 http://www.blogjava.net/nokiaguy/archive/2008/05/10/199739.html

 在delphi中动态建立类的实例可分为4步。

 1. 声明一个从TPersistent继承的类。因为在注册类时要求必须从TPersistent继承。

 2. 注册类。可以使用RegisterClass等过程进行注册。

 3. 验证类是否被注册（可选）。如果确定要建立的类已经注册了，可以省略此步。

 4. 得到并建立类。可使用FindClass(classname)得到要建立的类，然后使用Create方法建立类的实例。

 }

 unit Unit1;

 interface

 uses

   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

   Dialogs, StdCtrls, ExtCtrls, jpeg;

 type

   TForm1 = class(TForm)

     Button1: TButton;

     Edit1: TEdit;

     Image1: TImage;

     procedure Button1Click(Sender: TObject);

   private

     { Private declarations }

   public

     { Public declarations }

   end;

   TMyClass = class(TPersistent)

   public

     function GetValue: String;

   end;

 var

   Form1: TForm1;

 implementation

 {$R *.dfm}

 { TMyClass }

 function TMyClass.GetValue: String;

 begin

   Result := 'hello world';

 end;

 procedure TForm1.Button1Click(Sender: TObject);

 var

   class1: TMyClass;

 begin

   if GetClass('TMyClass')<>nil then

   begin

     class1 := FindClass('TMyClass').Create as TMyClass;

     Edit1.Text := class1.GetValue;

   end;

 end;

 Initialization //可将这两行放在end.的前面

   RegisterClass(TMyClass);

 end.