Процедура, регулирующая выбор условий поиска на вкладке Поиск Абонентов.

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
begin
edit5.Enabled:=true;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit11.Enabled:=false;
combobox4.Enabled:=false;
combobox5.Enabled:=false;
end
else if radiogroup1.ItemIndex=1 then
begin
edit5.Enabled:=false;
edit6.Enabled:=true;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit11.Enabled:=true;
combobox4.Enabled:=false;
combobox5.Enabled:=false;
end
else begin
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=true;
edit8.Enabled:=true;
edit11.Enabled:=false;
combobox4.Enabled:=true;
combobox5.Enabled:=true;
end

end;

• Добавление в коллекцию
• Удаление из коллекции
• Поиск по маркам