//кнопка Добавить, событие: Клик
global $list;
$text = trim(c("edit1")->text);
if($text <> ""){
  $arr["K"] = c("edit1")->text;
  $arr["N"] = c("edit2")->text;
  $arr["F"] = c("edit3")->text;
  $arr["O"] = c("edit4")->text;
  $arr["T"] = c("edit5")->text;
  $arr["D"] = c("edit6")->text;
  $arr["S"] = c("edit7")->text;
  $arr["H"] = c("edit8")->text;
  $arr["G"] = c("edit9")->text;
  $arr["P"] = c("edit10")->text;
  $arr["Y"] = c("edit11")->text;
  $arr["R"] = c("edit12")->text;
  $arr["M"] = c("memo1")->text;
  $list[] = $arr;
  c("listBox1")->text .= $arr["K"];
  c("listBox1")->itemIndex = c("listBox1")->items->count - 1;
}

//кнопка: Удалить собитие: Клик
if( c("listBox1")->items->selected ){
  global $list;
  $i = c("listBox1")->itemIndex;
  $arr = explode(_BR_, c("listBox1")->text);
  unset($arr[$i]);
  c("listBox1")->text = implode(_BR_, $arr);
  if($i-1 >= 0){
   c("listBox1")->itemIndex = $i - 1;
  }else{
   c("listBox1")->itemIndex = $i;
  }

  unset($list[$i]);
  foreach($list as $value){
   $newList[] = $value;
  }
  $list = $newList;

  $i = c("listBox1")->itemIndex;
  if($list[$i]){
   c("edit1")->text = $list[$i]["K"];
   c("edit2")->text = $list[$i]["N"];
   c("edit3")->text = $list[$i]["F"];
   c("edit4")->text = $list[$i]["O"];
   c("edit5")->text = $list[$i]["T"];
   c("edit6")->text = $list[$i]["D"];
   c("edit7")->text = $list[$i]["S"];
   c("edit8")->text = $list[$i]["H"];
   c("edit9")->text = $list[$i]["G"];
   c("edit10")->text = $list[$i]["P"];
   c("edit11")->text = $list[$i]["Y"];
   c("edit12")->text = $list[$i]["R"];
   c("memo1")->text = $list[$i]["M"];
  }else{
   c("edit1")->text = c("edit2")->text = c("edit3")->text =
   c("edit4")->text = c("edit5")->text = c("edit6")->text =
   c("edit7")->text = c("edit8")->text = c("edit9")->text =
   c("edit10")->text = c("edit11")->text = c("edit12")->text =
   c("memo1")->text = "";
  }
}