關於OleVariant類型的疑問???

關於OleVariant類型的疑問??? VCL組件開發及應用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061226151543105.html
我在remotedatamodule中建立了一個這樣的過程(類似於策略模式中"上下文"類)  
  申明:  
  procedure   StrategyTrans(var   Stgy:   OleVariant);   safecall;  
  實現:  
  procedure   TSvQueueRDM.StrategyTrans(var   Stgy:   OleVariant);  
  begin  
          CxQuStgy   :=   Stgy.Create();//將具體的策略類對象傳遞給抽象類別對象;  
  end;  
   
  其中,CxQuStgy為一基類抽象對象,而Stgy是我希望獲得的基類的子類對象  
  但從另外一個地方傳來的(var   Stgy:   OleVariant)參數是字串類型的(這個字串的內容是某個子類的類型名稱).請問要怎樣才能將Stgy字串轉換為類的對象?????????

怎麼沒有人來幫個忙哦

需要一數組對類進行維護，  
  arr:   array   of   TClass;  
  然後類加入到數組。  
  類似下面，或者生命常數陣列  
      SetLength(arr,   Length(arr)   +   1);  
      arr[High(arr)]   :=   TClass1;  
      全部加入到數組  
   
   
  procedure   TSvQueueRDM.StrategyTrans(var   Stgy:   OleVariant);  
  begin  
      for   i:=0   to   high(arr)   do  
          if   arr[i].ClassNameIs(Stgy)   then  
          begin  
              CxQuStgy   :=   arr[i].Create;  
              break;  
          end;  
  end;