[lmikle]

Есть метод Assign, который копирует ВСЕ property одного объекта в другой того же класса. Но, думаю, что тебе он не подойдет, т.к. тебе все свойства копировать не надо. Соответсвенно, надо будет писать свой метод,ю типа:

Код:

procedure SwapProperties(Obj1, Obj2 : TSpeedButton);
var
  S : String;
  I :  Integer;
  ...
begin
  S := Obj1.Hint;
  Obj1.Hint := Obj2.Hint;
  Obj2.Hint := S;

  I := Obj1.Tag;
  Obj1.Tag := Obj2.Tag;
  Obj2.Tag := I;
  
  ...
end;