Destroy в цикле

[Serge_Bliznykov]

понятно. традиционная ошибка, когда в цикле удаляются элементы. соответственно, остальные (после удаляемого) сдвигаются.
надо так:

for k:=Form1.PanelPrt.ComponentCount-1 downto 0 do
     if Form1.PanelPrt.Components[k] is TPanel then begin
        // тут можно добавить дополнительные проверки, например, что имя компонента начинается с VKEY...
        TPanel(Form1.PanelPrt.Components[k]).Free;
     end

[spamer]

Ох же ТС и велосипед хочет изобрести...)))

[Snake_ua]

точно, я забыл, что может быть сдвиг элементов. Я не программировал уже дофига времени и эта задача для меня очень полезна. Многое забыл просто. Позже я все равно вернусь к массивам. Тогда уже думать не мог, потому не разбирался даже. Спасибо огромное всем.