[Alloc]

Не получается у меня что то с массивами.. Вообщем при нажатии на кнопку функция как я понимаю проверяет число введенное в edit1 с массивом.. но что то не работает, не выдает то что должно по идее

Код:

function IsIn(const AWhat: integer; const ar: array of integer): boolean;
var
  i: integer;
begin
  Result := false;
  for i := 0 to High(ar) do
    if ar[i] = AWhat then begin
      Result := true;
      Break;
    end;
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  Nums: array [0..10] of integer;
begin
  if IsIn(StrToInt(edt1.Text),Nums) = True then Form1.Caption:= 'Yes' else Form1.Caption:= 'No'
end;

когда я ввожу цифру от 1 до 10 функция возвращает false... что я делаю не правильно?