FindComponent - usuwanie i "Argument out of range"

Pozwolę sobie założyć nowy wątek, bo lektura forum nie przyniosła odpowiedzi.
Otóż mam program (galerię obrazów) w którym chciałbym dodać możliwość usuwania wybranych obrazów z widoku. Obrazy są dodawane jako obiekty TImage z przypisanym do nich checkboxem. Poniżej kod procedury usuwania:

 procedure TForm1.Button5Click(Sender: TObject);
var
  J : Integer;
  S : String;
  NewStr, OldStr : String;
begin
  for J:=0 to componentcount-1 do
    begin
     if (Components[J] is Tcheckbox) and ((Components[J] as Tcheckbox).IsChecked=true)then
          begin
        S:= (components[J].Name);
        oldstr:='czek';
        newstr:='glowny';
        S := StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
      findcomponent(s).free;

           end;
    end;
end;

Kiedy obrazów jest dużo wszystko działa bez zarzutu, ale kiedy schodzę do 3-5 to za każdym razem wyskakuje mi błąd:
"Argument out of range". Mam chyba znaczący brak wiedzy, bo nie mogę tego przeskoczyć.

Musiałbyś zrobić pętlę While i inkrementować tylko wtedy, gdy nie zwalniasz komponentu.

Kasuj od końca:

for J:=ComponentCount-1 downto 0 do

findcomponent(s).free

zmniejsza liczbę komponentów i wymiar tablicy Components, tym samym odwołanie Components[J] może wykraczać poza jej rozmiar

albo pętlę od componentcount - 1 do 0

Kasując od końca też wywala "Argument out of range". Jestem mocno zdziwiony bo czasami wywala błąd przy 3 ostatnich, czasami przy ostatnim. Jak jest dużo komponentów to się ładnie usuwają, ale przy końcówce zawsze daje błąd. Jest jakaś metoda na wyszukiwanie komponentów wg typu? Tzn. chciałbym znaleźć wszystkie komponenty typu TCheckbox bez znajomości ich nazwy.

bo 'componentcount' zlicza wszystkie komponenty, w tym również checkboxy

utwórz metodę która będzie kasowała tylko jeden (pierwszy znaleziony) komponent z zaznaczonych do skasowania i zwróci wartość logiczną True jeśli coś skasowano i False jeśli już nic nie było do skasowania

a potem zrób coś takiego :

while self.kasuj do ;

pętla będzie się wykonywać aż do usunięcia ostatniego komponentu

Poszedłem w stronę tego

 while

, co prawda błąd zniknął ale teraz kasuje mi na raty. Tzn. mam zaznaczone np 9 elementów, najpierw skasuje 5, potem 3 i na końcu jeden. Trochę kodu:

 begin

J := 0;
while J < componentcount - 1 do
    begin
     if (Components[J] is Tcheckbox) and ((Components[J] as Tcheckbox).IsChecked=true)then
          begin
        S:= (components[J].Name);
        oldstr:='czek';
        newstr:='glowny';
        S := StringReplace(S, OldStr, NewStr, [rfReplaceAll]);
        findcomponent(s).Free;
          end;
       J:=J+1;
          end;
end;

Wariant drugi , to tworzysz dynamiczną tablicę zawierającą wskaźniki do komponentów które mają być usunięte.
W pierwszej pętli tylko wyszukujesz komponenty do skasowania i dodajesz do tablicy odpowiednie wskaźniki, a w kolejnej lecisz po tej tablicy i kasujesz

var
  I: Integer;
  a: array of tcomponent;
begin
  setlength(a, 0);
  for I := 0 to self.Componentcount - 1 do
    if { tu warunek kasowania }  then
    begin
      setlength(a, length(a) + 1);
      a[ high(a)] := self.Components[I];
    end;
  for I := 0 to high(a) do
    a[I].free;
end;

Dostałeś odpowiedź w drugim poście ale nadal robisz to samo, masz gotowe poprawne rozwiązanie:

for J:=ComponentCount-1 downto 0 do
  if (Components[J] is Tcheckbox)and((Components[J] as Tcheckbox).IsChecked) then
    findcomponent(StringReplace(components[J].Name,'czek','glowny',[])).Free;

Nie jest to poprawne rozwiązanie, niestety. Taki kod zwraca "Argument out of range". Wersja z odliczaniem w dół to pierwsza którą napisałem.

J:=ComponentCount-1;
while J>=0 do
begin
  if (Components[J] is Tcheckbox)and((Components[J] as Tcheckbox).IsChecked) then
  begin
    findcomponent(StringReplace(components[J].Name,'czek','glowny',[])).Free;
    if J>ComponentCount then J:=ComponentCount;
  end;
  Dec(J);  
end;

Dobra ciemny jestem, i nie umiem programować:). Sypię głowę popiołem. _13th_Dragon dzięki wielkie, ten kod działa poprawnie i szybko.
Dzięki wszystkim za pomoc

Z tym że powinieneś to przerobić na normalne tablice.