Ayuda con TPanel

[FideRosado]

he probado algo parecido pero no me sale la verdad , será que se me esta escapando algo..mi mente y mi cuerpo esta cansado jejje, dormire un rato pero les pondre este cod que estoy provando , tirando piedras , como se dice

Código Delphi [-]
procedure TForm1.RzPanel15Click(Sender: TObject);
 var
  u,h:integer;
  n,m: string;
  var t:Tcomponent;
begin
  n :=  ActiveCheckBoxes(ScrollBox1);

if n <> '' then begin

    u:= CharCount(n,'|');
    for h:= 1 to u do begin
     m:= GetToken( n, '|' , h );
     // t.Name:= m;
      t := FindComponent(m);
          if  Assigned(t) then begin

             ShowMessage('se lozalizo el control ' + t.Name);
             //t.Free;

            end else begin

             ShowMessage('No se lozalizo el control ' + t.Name);

            end;
    end;
  end;
end;

acuerdence que yo aca envio una string con los nombres a los que voy a eliminar, separados por una barra vertival,, | ,
de esta forma se podra hacer diganme si hay variantes..