Процедура заполняющая combobox’ы с названиями сотовых компаний. на вкладках Добавление Абонента, Поиск Абонента, Добавить рег.оператора/Префикс и настраивающая ConnectionString компонента ADOConnection

procedure TForm1.FormCreate(Sender: TObject);
var
i,k:word;
sotcom:ShortString;
begin
adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=MSDASQL.1;ersist Security Info=False;Data Source=scbase3601;Mode=ReadWrite;Extended Properties='+#34+'DSN=scbase3601;DBQ='+GetCurrentDir+'\base;DefaultDir='+GetCurrentDir+'\base;DriverId=538;FIL=Paradox 5.X;MaxBufferSize=2048;PageTimeout=600;'+#34+';Initial Catalog='+GetCurrentDir+'\base';
adoconnection1.Connected:=true;
adotable1.Active:=true;
adotable2.Active:=true;
adotable3.Active:=true;
i:=1;
with adotable3 do
begin
first;
combobox1.items.Add(FieldByName('SotCom').AsString);
while not EOF do
begin
next;
sotcom:=FieldByName('SotCom').AsString;
for k:=0 to i-1 do
if sotcom=combobox1.Items[k] then
begin
sotcom:='';
break;
end;
if sotcom<>'' then
begin
combobox1.items.Add(FieldByName('SotCom').AsString);
inc(i);
end;
end;
end;
combobox4.items:=combobox1.items;
combobox6.items:=combobox1.items;
end;

• Задача на Паскале
• Примеры Паскаля
• Процедура summa