[NumLock]

Код:

function IndexInArray(Index: Integer; var V): Boolean;
var
  p: PInteger;
begin
  p:=PInteger(PInteger(@V)^);
  Dec(p);
  Result:=(Index>=0) and (Index<p^);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  a: array of Integer;
  b: array of TPoint;
  c: array of TClass;
begin
  SetLength(a, 20);
  SetLength(b, 30);
  SetLength(c, 40);
  if IndexInArray(35, a) then Memo1.Lines.Add('a');
  if IndexInArray(35, b) then Memo1.Lines.Add('b');
  if IndexInArray(35, c) then Memo1.Lines.Add('c');
end;

Low = 0, т.к. xor edx,edx = 0