procedure TRadar.DeleteCheckImage(WidgetName: string; Name: string);
var
  i: integer;
  WI, CI: integer;
begin
  WI:= -1;
  for i:= 0 to MainSet.WidgetCount - 1 do
    if (MainSet.WidgetArray[i].Name = WidgetName) then
    begin
      WI:= i;
      break;
    end;
  if (WI = -1) then exit;

  CI:= -1;
  for i:= 0 to MainSet.WidgetArray[WI].CheckImageCount - 1 do
    if (MainSet.WidgetArray[WI].CheckImageArray[i].Name = Name) then
    begin
      CI:= i;
      break;
    end;
  if (CI = -1) then exit;

  MainSet.WidgetArray[WI].CheckImageArray[CI].Name:= 'Nil'; 
  MainSet.WidgetArray[WI].CheckImageArray[CI].NeedDelete:= true; 
end;