uses TypInfo;    procedure CopyProps(Source, Target: TObject);
const ValidTypeKinds =
      [tkInteger, tkChar, tkWChar, tkClass, tkEnumeration, tkSet, tkFloat,
       tkMethod, tkString, tkLString, tkWString, tkVariant, tkInt64,
       tkDynArray];
var sPL, tPL : PPropList;
    i ,PCount : integer;
begin
  if Source.ClassType <> Target.ClassType then
    raise Exception.Create('Different Class Type !');
  PCount := GetPropList(Source, sPL);
  GetPropList(Target, tPL);
  for i := 0 to PCount-1 do
  if (sPL^[i].PropType^.Kind in ValidTypeKinds) and (Comparetext(sPL^[i].Name,'name')<>0) then begin
    case sPL^[i].PropType^.Kind of
    tkMethod:
      SetMethodProp(Target ,tPL^[i].Name, GetMethodProp(Source ,sPL^[i].Name));
    tkClass:
      SetObjectProp(Target ,tPL^[i].Name, GetObjectProp(Source ,sPL^[i].Name));
    else
      SetPropValue(Target, tPL^[i], GetPropValue(Source,sPL^[i]));
    end;
  end;
end;