type packed record

[Lord Delfos]

Bueno, con arreglos se podría hacer algo así:

Código Delphi [-]

type Arr=array [1..2] of Smallint;

{. . .}

var p:^Arr;
     Rec:TFUsAct;
begin
  p:=@Rec;
  p^[1]:=3;
  p^[2]:=17;
  ShowMessage(IntToStr(Rec.Codigo)+' - '+IntToStr(Rec.numero));
end;

Cuya practicidad es discutible. Pero que funciona, funciona.

Saludongos.