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.