Процедура заполняющая combobox’ы с префиксами телефонов. на вкладке Добавление Абонента.

procedure TForm1.ComboBox2Change(Sender: TObject);
var
ROName:ShortString;
begin
combobox3.Clear;
ROName:=combobox2.text;
with adotable3 do
begin
first;
while not EOF do
begin
if ROName=FieldByName('ROName').AsString then
combobox3.items.Add(FieldByName('Pr').AsString);
next;
end;
end;
end;

• Поиск в строке
• Метод итераций
• Что то про филателиста