asd

program new;
{$I SRL/OSR.simba}
{$loadlib utils.dll}
//MemCmp is defined as: "function MemCmp(var A,B; Length:Int32): Boolean;"

type
  TComparePoints = external function(constref A,B: TPoint; _:Int32=SizeOf(TPoint)): Boolean;

var
  ComparePoints: TComparePoints := @MemCmp;
  t:Int32;
  a,b:TPoint;
begin
  a := [10,10];
  ComparePoints(a, [15,2]);

end.