ffi.lap

type
  t = record abc: Boolean; end;

function a: array of array of Single;
begin
  Result := [[1, 2, 3]];
end;

function t.b: array of array of Single;
begin
  Result := [[4, 5, 6]];
end;

type
  ma = function: array of array of Single;
  mb = function: array of array of Single of object;

var
  z: t;
  x: ma := Lapify(Natify(@a));
  y: mb := Lapify(Natify(@z.b));
begin
  WriteLn(SizeOf(Pointer));
  WriteLn(x());
  WriteLn(y());
end;

out.txt

8
[[1, 2, 3]]
[[4, 5, 6]]