[xkor]

так будет быстрее)

function GetVector: Integer; inline;
begin
  result := Integer(dx<0) or (Integer(dy<0) shl 1) + 1;
end;