Komponenten löschen > Abstracter Fehler

[mimi]

nachtrag:

Delphi-Quellcode:

procedure TForm1.PanelFree(Sender:Tobject);
var
  test:TWinControl;
  MenuItem:TMenuItem;
  i:Integer;
begin
  test:=TJvCaptionPanel((Sender as TWinControl).Parent);
  TMenuItem(form1.FindComponent('MenuItem' +InTTostr(test.tag))).Destroy;

    form1.ActiveControl:=niL;
  for i:=test.ControlCount-1 downto 0 do begin
    if test.Controls[i] <> NIL then
       test.Controls[i].free;
//    test.RemoveControl(test.Controls[i]);
  end;
test.free;

end;

wenn ich es mit free mache bekomme ich eine abstrakte fehlermeldung und wenn ich es mit removcontrol mache ist die komponente weg bzw. kann nicht mehr gefunden werden mit findcomponent !