Datenkopie vom einen Record in ein anderes

[Der schöne Günther]

Ich verstehe nicht- Warum sollte man das tun? Record-Zuweisungen sind doch immer eine vollständige Kopie:

Delphi-Quellcode:

program Project16;

{$APPTYPE CONSOLE}

{$R *.res}

uses System.SysUtils;

type
   TMyRecord1 = packed record
      datum : tdatetime;
      wert : integer;
      feld : AnsiString;
   end;

var
   firstRecord, secondRecord:   TMyRecord1;

begin
  try
   firstRecord.datum := Now();
   firstRecord.wert := 42;
   firstRecord.feld := 'Hallo Welt';

   secondRecord := firstRecord;

   firstRecord.datum := 0.0;
   firstRecord.wert := 99;
   firstRecord.feld := 'Derp';

   WriteLn( DateTimeToStr(secondRecord.datum) );
   WriteLn(secondRecord.wert);
   WriteLn(secondRecord.feld);

  except
   on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.