Удаление динамически созданных объектов [Ловлю ошибки]

[Dee63]

Всем привет!
Есть у меня на форме TStrigGrid, у него описано onDrawCell, в котором, среди прочего, реализована динамическая отрисовка TLabel при совпадении условий.
Все корректно отрабатывает при первой отрисовке.

Потом я меня входные условия и весь грид должен быть очищен и перерисован. В том числе должны быть убиты все нанесенные на него TLabel и нарисованы новые в нужных местах.

Так вот, как я это делаю...
Создание Tlabel:

procedure TBookingWindow.RightGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Lbl: Tlabel;
  itm, preitm: BronData;
begin
  //... some actions
  lbl:= Tlabel.Create(RightGrid);
  lbl.Parent:= RightGrid;
  lbl.Left:= Rect.Left+18;
  lbl.Top:= Rect.Top;
  lbl.Caption:= '№'+ itm^.bnumber;
  //... some other actions

Вот так я его хочу убивать:

procedure TBookingWindow.KillAllLAbels;
var
  h:integer;
begin
  for h := 1 to RightGrid.ComponentCount-1 do
    begin
      if RightGrid.Components[h]<> nil then
        if RightGrid.Components[h] is TLabel then
           RightGrid.Components[h].Destroy;
    end;
end;

Собственно в чем у меня веселье заключается- RightGrid.ComponentCount-1 каждый раз разное число возвращает.
И самое странное, что RightGrid.Components[h] частенько обращается к элементу с несуществующим индексом. т.е. к 75, к примеру, и получаю ошибку выхода за границы. При этом ComponentCount=223.

Мне стало интересно и я заметил, что все ошибки генерируются ровно на отметке (ComponentCount div 2) и выше.
я прописал в условии

for h := 1 to (RightGrid.ComponentCount div 2)-1 do

и ошибка выхода за границы не возникает.... НО Лэйблы не удаляются(
Если раза 4-5 нажать на кнопку, то года они начнут по одному удаляться и к 8 разу в итоге у меня все старые пропадают.

Прошу мне подсказать где я допустил ошибку и как правильно эту задумку сделать- удалять старые лэйблы.

[Stilet]

Я тебе посоветую использовать класс TComponentList.

procedure TBookingWindow.RightGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Lbl: Tlabel;
  itm, preitm: BronData;
begin
  //... some actions
  lbl:= Tlabel.Create(RightGrid);
  lbl.Parent:= RightGrid;
  lbl.Left:= Rect.Left+18;
  lbl.Top:= Rect.Top;
  lbl.Caption:= '№'+ itm^.bnumber;
  
 MyList.Add(lbl);

И уже MyList.Clear сам по идее освободит все добавленные в него компоненты. Даже цикла не надо. Почитай подробнее про него в хелпе.

[phomm]

for h := RightGrid.ComponentCount - 1 downto 0 do

[Dee63]

Сообщение от Stilet

Я тебе посоветую использовать класс TComponentList.

procedure TBookingWindow.RightGridDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  Lbl: Tlabel;
  itm, preitm: BronData;
begin
  //... some actions
  lbl:= Tlabel.Create(RightGrid);
  lbl.Parent:= RightGrid;
  lbl.Left:= Rect.Left+18;
  lbl.Top:= Rect.Top;
  lbl.Caption:= '№'+ itm^.bnumber;
  
 MyList.Add(lbl);

И уже MyList.Clear сам по идее освободит все добавленные в него компоненты. Даже цикла не надо. Почитай подробнее про него в хелпе.

Да, это прекрасно работает.
Спасибо!

[lomastr_]

И зачем тут лейбл?

[Serge_Bliznykov]

Сообщение от lomastr_

И зачем тут лейбл?

первый пост не читали? Автор темы создаёт лейблы динамически.

[lomastr_]

читали, потому и вопрос

[Stilet]

Серж, он имел ввиду что в Гриде можно текст отрисовывать, вместо лепнины из лейбочек. Но ввиду ограниченного лексикона, подвластного полной мере только госпоже Щукиной, как всегда у нашего недалекого друга посты превратились в кашу. Просто не обращай внимание.
И на следующий его "бэк" по поводу моего поста тоже

[lomastr_]

что в Гриде можно текст отрисовывать

автор и так уже "рисует" см. RightGridDrawCell, так что ваш выпад про лексикон мимо кассы, надо просто читать а не давать сходу ненужные советы, как в #1.

[Stilet]

надо просто читать

Это говорит человек, который свои же советы не соблюдает... Ржу. И удивляюсь.