[Aristarh Dark]

Примерно так:

Код:

var
...
  NewFerma:Ferma1;
...
ZeroMemory(@NewFerma,SizeOf(Ferma1));