Здравствуйте, Chost,
Простым приравниванием вы просто говрите firm1 чтобы она брала данные из адреса памяти где находится firm2 (на пальцах) соответственно при удалении firm2 удаляются и данные, для приравнивания вы должны приравнять сами данные тоесть надо делать firm1.fid:=firm2.fid либо переопределить оператор = чтобы все это делалось автоматически. Извиняйте на паскале я не знаю как переопределить что либо....