А если добавить при закрытии такое наполнение разрушителя формы
Код:
procedure TForm1.FormDestroy(Sender: TObject);
var
i:integer;
begin
for :=0 to 16 { или сколько их там есть} do
begin
(Grid[i] as TDrawGrid).Free;
(TextLabel[i] as TLabel).Free;
end;
end; или надо проверять есть ли такие в природе.