For i:= 0 to 700000 do
 begin
  Application.ProcessMessages;
  PBZagruzka.Position:= i;
  IntTipEda:= Random(2);
  IntXEda:= Random(IntXRazm);
  IntYEda:= Random(IntYRazm);
  DataM.ADOQEda.SQL.Clear;
  DataM.ADOQEda.SQL.Add('INSERT INTO Координаты_еды ([Тип_еды], [Х], [У]) VALUES (' +
                         IntToStr(IntTipEda) + ',' + IntToStr(IntXEda) + ',' + IntToStr(IntYEda) + ')');
  DataM.ADOQEda.ExecSQL;
 end;

//Запуск мира по страндартным настройкам
procedure TGeneralForm.MenuStandNachalaClick(Sender: TObject);
var
i, IntTipEda, IntMaxEda, IntXEda, IntYEda: integer;//Временные параметры для настройки мира

begin
//Очистка всех данных в компонентах
SBar.Panels[0].Text:= 'Время мира - 00:00:00';
SBar.Panels[1].Text:= 'Темп. - 0';
SBar.Panels[2].Text:= 'Влаж. - 0';
SBar.Panels[3].Text:= 'Радиация - 0';
SBar.Panels[4].Text:= 'Клеток - 0';
SBar.Panels[5].Text:= 'Пищи - 0';
SBar.Panels[6].Text:= 'Вирусов - 0';
ListBDeistviaKletki.Items.Clear;
CBoxViborKletki.Clear;
CBoxViborKletki.Text:= '0';

//Запуск базы данных о ДНК всех клеток мира, очистка старой информации
DataM.ADOQDNK.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                                  ExtractFilePath(Application.ExeName) +
                                  '\База данных Эволюции.mdb' + ';Persist Security Info=False';
DataM.ADOQDNK.Active:= true;
DataM.ADOQDNK.SQL.Clear;
DataM.ADOQDNK.SQL.Add('DELETE FROM ДНК_клеток');
DataM.ADOQDNK.ExecSQL;
DataM.ADOQDNK.SQL.Clear;
DataM.ADOQDNK.SQL.Add('INSERT INTO ДНК_клеток ([№_клетки],[Цвет],[Размер],[Масса],[Жизнь],' +
                       '[Ошибка_копир _ДНК],[Скорость_деления],[Бак_с_Е],[Е_для_деления],' +
                       '[Е_для_сенсора],[Е_для_движения],[№_клеток_в_орган],[№_жгутиков],' +
                       '[Дальн_сенсора],[Скор_движения],[Коор_клетки_Х],[Коор_клетки_У],' +
                       '[Коор_пищи_Х],[Коор_пищи_У],[Действий_клетки]) ' +
                       'VALUES(1, 100, 6, 6, 60, 0, 2, 25, 20, 10, 1, 1, 1, 40, 1, 0, 0, 0, 0, 0)');
DataM.ADOQDNK.ExecSQL;

//Запуск базы данных о координатах еды, генерация еды в мире случайным образом, очистка старой информации
DataM.ADOQEda.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                                  ExtractFilePath(Application.ExeName) +
                                  '\База данных Эволюции.mdb' + ';Persist Security Info=False';
DataM.ADOQEda.Active:= true;
DataM.ADOQEda.SQL.Clear;
DataM.ADOQEda.SQL.Add('DELETE FROM Координаты_еды');
DataM.ADOQEda.ExecSQL;
//Получение количества пикселей компонента PaintBox
IntXRazm:= PBWord.Width;
IntYRazm:= PBWord.Height;
//Формула получения кол. пищи в мире
IntMaxEda:= Trunc((IntXRazm*IntYRazm)/40);
//Настройка компонента ProgressBar и Label для показа создания еды в мире
PBZagruzka.Position:= 0;
PBZagruzka.Max:= IntMaxEda;
PBZagruzka.Visible:= true;
LabZagruzka.Visible:= true;
//Создание базы данных с координатами еды в мире
For i:= 0 to IntMaxEda do
 begin
  Application.ProcessMessages;
  Edit1.Text:= IntToStr(IntMaxEda) + '/' + IntToStr(i);
  PBZagruzka.Position:= i;
  IntTipEda:= Random(2);
  IntXEda:= Random(IntXRazm);
  IntYEda:= Random(IntYRazm);
  DataM.ADOQEda.SQL.Clear;
  DataM.ADOQEda.SQL.Add('INSERT INTO Координаты_еды ([Тип_еды], [Х], [У]) VALUES (' +
                         IntToStr(IntTipEda) + ',' + IntToStr(IntXEda) + ',' + IntToStr(IntYEda) + ')');
  DataM.ADOQEda.ExecSQL;
 end;
//Убираем компоненты загрузки
PBZagruzka.Visible:= false;
LabZagruzka.Visible:= false;
//Запуск таймера отображения в PaintBox еды в мире
TimerWord.Enabled:= true;
end;

procedure TForm1.Button5Click(Sender: TObject);
var
 i: integer;
 pIntTipEda, pIntXEda, pIntYEda: TParameter;
begin
 ADOCon.ConnectionString:=
   'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
   ExtractFilePath(Application.ExeName) +
   '\База данных Эволюции.mdb' + ';Persist Security Info=False';

 {ADOQDNK.CommandText:= 'DELETE FROM ДНК_клеток';
 ADOQDNK.Execute;

 ADOQDNK.CommandText:=
   'INSERT INTO ДНК_клеток ([№_клетки],[Цвет],[Размер],[Масса],[Жизнь],' +
   '[Ошибка_копир _ДНК],[Скорость_деления],[Бак_с_Е],[Е_для_деления],' +
   '[Е_для_сенсора],[Е_для_движения],[№_клеток_в_орган],[№_жгутиков],' +
   '[Дальн_сенсора],[Скор_движения],[Коор_клетки_Х],[Коор_клетки_У],' +
   '[Коор_пищи_Х],[Коор_пищи_У],[Действий_клетки]) ' +
   'VALUES(1, 100, 6, 6, 60, 0, 2, 25, 20, 10, 1, 1, 1, 40, 1, 0, 0, 0, 0, 0)';
 ADOQDNK.Execute;}

 ADOQEda.CommandText:= 'DELETE FROM Координаты_еды';
 ADOQEda.Execute;

 ADOQEda.CommandText:=
   'INSERT INTO Координаты_еды ([Тип_еды],[X],[Y]) VALUES (:IntTipEda, :IntXEda, :IntYEda)';

 pIntTipEda:= ADOQEda.Parameters.ParamByName('IntTipEda');
 pIntXEda  := ADOQEda.Parameters.ParamByName('IntXEda');
 pIntYEda  := ADOQEda.Parameters.ParamByName('IntYEda');

 for i:= 1 to 70000 do begin
   pIntTipEda.Value:= Random(2);
   pIntXEda.Value  := Random(200);
   pIntYEda.Value  := Random(200);
   ADOQEda.Execute;

   if (i mod 1000) = 0 then Label1.Caption:= IntToStr(i);
   Application.ProcessMessages;
 end;
end;

PBZagruzka.Position:= i;

insert into table (...) select * from [tmp.txt] in "c:\tmp-location" "Text;HDR=Yes"