Loesungsansatz 1:

function is_equal(a,b:Record): Boolean;
begin
is_equal := true;
is_equal := is_equal or ( a.x = b.x );
is_equal := is_equal or ( a.y = b.y );
is_equal := is_equal or ( a.z = b.z );
..
end;

Loesungsansatz 2: Du verwendest statt Records Objekte und bietest obige Funktion als Methode an.