var
test[0..9] : TNanika;
i : integer;
begin
test[0] := TNanika.create;
:
:
test[9] := TNanika.create;
for i := 0 to 9 do begin
test[i] := Honyarara;
if test[i] = Nanikada then
test[i].Free;
end;

とした後で0〜9版のtestをFreeするとエラーが起きます。
なにか良い方法はないですかねぇ？