Komponenten löschen > Abstracter Fehler

[mimi]

habe ich versucht:
1. kam eine fehlermeldung vom complier das

Zitat:

[Fehler] Unit1.pas(332): E2010 Inkompatible Typen: 'TWinControl' und 'TControl'

dann habe ich das geändert oben dann ging das complieren.

2. die Laufzeit fehlermeldung kommt immer noch mit deinem code... wenn ich es so mache:

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 begin
      test.RemoveControl(test.Controls[i]);
    end;
  end;
  test.free;
end;

kommt keine fehlermeldung !
und die komponente ist auch weg, naja ich kann sie nicht mehr mit FindComponent finden...