Borrar Panel me sale Access Violation

[ecfisa]

Hola LiAnTe-

Hola.

Si los TSpeedButton están dentro de un TPanel llamado 'Personal' no es necesario recorrer todos los componentes del form
para seleccionar aquellos componentes cuyo Parent sea 'Personal'. Podés buscar directamente dentro de él.

Código Delphi [-]
procedure TForm1.BorrarPersonal;
var
  i: Integer;
begin
  for i:= Personal.ComponentCount-1 downto 0 do
   if Personal.Components[i].ClassType = TSpeedButton then
     Personal.Components[i].Free;
end;

Si los TSpeedButtons tienen como Owner y Parent a 'Personal', no tiene por que arrojar ningun error.


Saludos.