Процедура поиска абонентов. Нажатие кнопки на вкладке Поиск Абонента

procedure TForm1.Button3Click(Sender: TObject);
var
sqlzapros, sqlzapros2,andoperator:shortstring;
begin
sqlzapros:='select pr.pr as Номер, TNo as телефона,AbName as ФИО_Абонента,AbAdr as Адрес_абонента,City as Город_регистрации, SotCom as Сот_компания,ROName as Рег_оп from (abonents a inner join phones p on a.abno=p.abno) inner join pr on pr.pr=p.pr where'; 
if radiogroup1.ItemIndex=0 then
begin
if (checkstr(edit5.Text,1)) or (length(edit5.Text)<>12) then begin showmessage('Ошибка ввода ИНН'); exit; end;
sqlzapros2:=' a.abno='''+edit5.Text+'''';
end
else if radiogroup1.ItemIndex=1 then
begin
if (checkstr(edit11.Text,1)) or (checkstr(edit6.Text,1)) or (length(edit11.Text)<>3) or (length(edit6.Text)<>7) then begin showmessage('Ошибка ввода телефона'); exit; end;
sqlzapros2:=' p.tno='''+edit6.Text+''' and pr.pr='+edit11.text;
end
else
begin
if (edit7.Text+edit8.Text+combobox4.Text+combobox5.Text)='' then begin showmessage('Введите параметры поиска'); exit; end;
if edit7.text<>'' then begin if (checkstr(edit7.Text,3)) then begin showmessage('Ошибка ввода ФИО'); exit; end;end;
if edit8.text<>'' then begin if (checkstr(edit8.Text,3)) then begin showmessage('Ошибка ввода города'); exit; end;end;
andoperator:=' ';
sqlzapros2:='';
if edit7.text<>'' then begin sqlzapros2:=' a.abname='''+edit7.Text+''''; andoperator:=' AND' end;
if edit8.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' p.city='''+edit8.Text+''''; andoperator:=' AND' end;
if combobox4.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' pr.sotcom='''+combobox4.Text+''''; andoperator:=' AND' end;
if combobox5.text<>'' then begin sqlzapros2:=sqlzapros2+andoperator+' pr.ROName='''+combobox5.Text+'''';end;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(sqlzapros);
adoquery1.SQL.Add(sqlzapros2);
adoquery1.Open;
end;

• Вывод названия марки
• Информация о марке
• Марки. Классификация по странам.