Nachbarn in 3 Dimensionen

[inherited]

Hi,
ich versuche mit folgender FUnktion herauszufinden, ob das Feld mit den Koordinaten x2;y2;z2 ein Nachbar des Feldes x1;y1;z1 ist

Delphi-Quellcode:

function IsNeighbor(x1,y1,z1,x2,y2,z2: Integer): Boolean;
begin
  result:=false;
  if (x1=x2) and (y1=y2) and (z1=z2) then
    exit;
  result:= ((x2 in [x1-1..x1+1]) and (y2 in [y1-1..y1+1]) and (z2 in [z1-1..z1+1]));
end;

Aber irgendwie scheint da immer false bei rauszukommen.
beispielwerte:
x2:1 x1:2
y2:0 y1:0
z2:1 z1:1

Eigentlich müsste da doch true bei rauskommen