Out of range

Bonjour,
voila je suis occupé de faire un peu de programmation et je suis bloqué sur un problème.
Je suis occupé de faire une petite détection de jauge d'HP ma fonction fonctionne mais lorsque je cache la jauge d'hp une j'ai une erreur de range. Je sais ou est mon erreur elle se situe dans ma boucle en revanche je ne sais pas comment la résoudre c'est à dire comment faire un comptage de jauche avant le contage de jeuche j'ai envie de dire :p

Voici mon code

function DetectBarHP(out x, y: integer;XS, YS, XE, YE: integer; DetectAuto:Boolean): integer;// retourne 1 bon 2 barre hp introuvable 3 barres introuvables
var
  BarHPBMP : TSCARBitmap;
  Points: TPointArray;
  w, h, cpt, PixelBar: integer;
begin
  BarHPBMP := TSCARBitmap.Create('deNrjYmBlUBJiAiIVYUYVYQY1UUZNCRYt' +
    'SVZtaSYNUQYdCYZgZ+NQN+NwN6NID5M4X8vkILu0UMf0UNvsMMv8aCt9eX5DBT' +
    '5jRV4TJT4LNSFbbXF7XUk7HTE7DUFnbWELdVFLdUELNQFzVX5rNUE7TRFbTUFr' +
    'dX5bdX5HTcEFfRVLJ1Ys7C2Z0ZI5rzNvxeSKVVMr1kyv2DCzct30cgAefCUj');

  Write('Detection automatique bar HP');
  if DEBUG then WriteLn(': ' + BoolToStr(DetectAuto) + '.');
  if not DEBUG then WriteLn('');
  if(DetectAuto) then
  begin
    if FindBitmapEx(Points, BarHPBMP, XS, YS, XE, YE) then
    begin
      cpt := 0;
      repeat
        w := Points[cpt].x;
        h := Points[cpt].y;     
        if DEBUG then WriteLn('Barre' + IntToStr(cpt) + ' X: ' + IntToStr(w) + '.');
        if DEBUG then WriteLn('Barre' + IntToStr(cpt) + ' Y: ' + IntToStr(h) + '.');
        PixelBar := GetColor(w - 2, h - 3);
        if DEBUG then WriteLn('Color: ' + IntToStr(PixelBar) + '.');
        Inc(cpt);
      until(PixelBar <= 29440) or (cpt >= 4);//le probleme ce situe au niveau de la boucle j'imagine vu que je défini 4 comme sortie mais si il n'y en à que 3 il est évidement perdu
      if(cpt < 5) then
      begin
        result := 1;
        if(DEBUG) then WriteLn('Barre HP X: ' + IntToStr(w) + '.');
        if(DEBUG) then WriteLn('Barre HP Y: ' + IntToStr(h) + '.');
        x := w - 1;   
        y := h - 2; 
        Write('Barre HP détecté');
        if DEBUG then Writeln(': (' + IntToStr(x) + ';' + IntToStr(y) + ').' );
        if not DEBUG WriteLn('');
      end else
      begin
        result := 2;
      end;
    end else
    begin
      result := 3;
    end;
  end else
  begin
    WriteLn('Initialisation manuel barre HP activé');
  end;
end;

Merci d'avanace