Destruir botões criados dinamicamente

procedure TfrmPrinc.IconeCria;
var
  sb : TSpeedButton;
  sNome : string;
begin
  iconeDestroi;
  dmADS.tbIcoAbrir;
  dmADS.tbIco.First;
  while not dmADS.tbIco.Eof do begin
    if iconeProcAct(dmADS.tbIcoNOMEACT.Value) <> -1 then begin
      sb := TspeedButton.Create(Self);
      sb.Parent := frmPrinc;
      sb.OnMouseDown := iconeMouseDown;
      sb.OnMouseUp := iconeMouseUp;
      sb.OnMouseMove := iconeMouseMove;
      sb.Height := 49;
      sb.Width := 77;
      //sb.Flat := true;
      sb.Cursor := crHandPoint;
      sb.Top := dmADS.tbIcoPOSX.value;
      sb.Left := dmADS.tbIcoPOSY.value;
      sb.Caption := dmADS.tbIcoNOMECAP.value;
      sNome := ´icone_´+dmADS.tbIcoNOMEACT.value;
      sb.Name := sNome;
      sb.OnClick := actPrinc.Actions[iconeProcAct(dmADS.tbIcoNOMEACT.Value)].OnExecute;
    end;
    dmADS.tbIco.Next;
  end;
  dmADS.tbIco.Close;
end;

procedure TfrmPrinc.iconeDestroi;
var
  iCont : integer;
begin
  for iCont := 1 to frmPrinc.ComponentCount-1 do begin
    if copy(frmPrinc.Components[iCont].Name,1,6) = ´icone_´ then begin
      showmessage(frmprinc.Components[icont].Name);
      frmPrinc.Components[icont].DestroyComponents;
    end;
  end;
end;