type TRec = record
a : System.AppDomain;
end;

var p : ^TRec;
begin

end.