关于多态的问题，大家看看我这样行不行？？？？

我现在编了两个类，一个TSiteModule,一个TMTMesh1d，其中TMTMesh1d由TSiteModule继承而来，在TSiteModule中定义了许多数据字段，同时定义了一个虚拟的方法Assign，赋予另一个TSiteModule变量的数据：TSiteModule=Class 
...
Public
   Procedure Assign(Module:TSiteModule); Virtual;
 ...Implementation
 ...procedure TSiteMoDule.Assign(Module: TSiteModule);
begin
  SetDepth(Module.depth);
  SetInvMDepth(Module.InvMDepth);
  SetRes(Module.Res);
  SetInvMRes(Module.InvMRes);
end;
TMTMesh1d=Class(TSiteModule)
...
Public
  Procedure Assign(Module:TSiteModule); Virtual;
...
Implementationprocedure TMTMesh1d.Assign(Mesh: TSiteModule);
Var
  Mesh_Tem:TMTMesh1d;
begin
  Inherited;  //用这句话来继承基类中的同名方法赋也属于基类中的字段值
  Mesh_Tem:=(Mesh As TMTMesh1d);
  x:=Mesh_Tem.x;
  y:=Mesh_Tem.y;
  Elev:=Mesh_Tem.Elev;
  Mx:=Mesh_Tem.Mx;
  My:=Mesh_Tem.My;
  Mh:=Mesh_Tem.Mh;
  FreqsCount:=Mesh_Tem.FreqsCount;
  IsSite:=Mesh_Tem.IsSite;
  SetZxy(Mesh_Tem.Zxy);
  SetZyx(Mesh_Tem.Zyx);
  SetRxy(Mesh_Tem.Rxy);
  SetRyx(Mesh_Tem.Ryx);
end;不知道上述方法是否可行？？？
因为新写的类现在还没有实现，所以还不能自己马上进行试验。先请各位大侠指教则个。谢谢。