procedure TfrmFlash_SHX.FirmwareDeleteCG;
var
  i, k: integer;
begin
  if spSkinListView1.Selected = nil then exit;
  k:= integer(spSkinListView1.Selected.Data);
  if (k = -2) or (k = -1) or (k = 0) then
    begin
      i:= Form1.spSkinMessage1.MessageDlg(Format(fl_shx_t_text16, [#13#10, #13#10]), mtWarning, [mbYes, mbNo], 0);
      if i = mrYes then exit;                                
    end;
  CG_MarkAsDelete(k);
  spSkinListView1.Selected.Delete;
end;