procedure TForm1.Button2Click(Sender: TObject);
const
  COUNT_MAX     : Integer =  500000 ;
  GABARIT_MAX   : Integer =  1000000 ;
var
  i          : Integer;
  nTime      : LongInt;
  T          : TextFile;
begin
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('TRUNCATE TABLE tabl_name');
  ADOQuery1.ExecSQL;

  AssignFile(T, 'C:\TEMP.DAT');
  Rewrite(T);

  Screen.Cursor := crHourGlass;
  try
    ProgressBar1.Max :=  COUNT_MAX;

    nTime := GetTickCount;

    Randomize;

      for i :=  1  to COUNT_MAX do
      begin
        Writeln(T, IntToStr(i) + # 9  +
                IntToStr(Random(GABARIT_MAX)) + # 9  +
                IntToStr(Random(GABARIT_MAX)) + # 9  +
                IntToStr(Random(GABARIT_MAX)) + # 9  +
                IntToStr(Random(GABARIT_MAX)));

        ProgressBar1.Position := i;
      end;
    CloseFile(T);

    MessageBox(Application.Handle,PChar('A?aiy = '+
      IntToStr((GetTickCount-nTime) div  1000 )+' c.'), 
      Pchar(ExtractFileName(Application.ExeName)), MB_ICONERROR);

    nTime := GetTickCount;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(
      'LOAD TABLE tabl_name FROM ''C:\TEMP.DAT'' FORMAT ASCII DELIMITED BY ''\t''');
    ADOQuery1.ExecSQL;

    MessageBox(Application.Handle,PChar('A?aiy = '+
      IntToStr((GetTickCount-nTime) div  1000 )+' c.'), 
      Pchar(ExtractFileName(Application.ExeName)), MB_ICONERROR);
  finally
    ProgressBar1.Position :=  0 ;
    Screen.Cursor := crDefault;
  end;
end;