[[jesusomarsanche]]

Gracias a todos.
en el foro encontre algo que me soluciono el problema,

http://www.clubdelphi.com/foros/showthread.php?t=21387

solo tuve que agregarle, para que me los borrara

  
procedure poscavidades.ocultalabels;
var
      i   : integer;
begin
    i:= 26; {los componentes anteriores son del formulario}
    while i < poscavidades.componentcount do begin
        if uppercase(leftstr(components[i].Name,5))='LABEL' then begin
            poscavidades.Components[i].Destroy;
        end else begin
            inc(i);
        end;
    end
end;

espero les sirva