[NumLock]

Код:

type
  TRec = record
    i: Integer;
    s: String[10];
  end;
var
  rec: TRec;
  s: String;
begin
  rec.i:=$40;
  rec.s:='hello';
  SetLength(s, SizeOf(TRec));
  CopyMemory(@s[1], @rec, SizeOf(TRec));
  rec.i:=$0;
  rec.s:='';
  CopyMemory(@rec, @s[1], SizeOf(TRec));
  Memo1.Lines.Add(IntToStr(rec.i));
  Memo1.Lines.Add(rec.s);
end;

хотя и не понятно зачем так делать?