SQLite 에서 대량으로 insert 시에 속도가 너무 느려서 방법을 찾던차 인터넷에서 찾은 방법입니다.
SQLite 사이트에 설명이 있다던데, 매뉴얼을 덜보다보니... ^^


var
  QueryStr: string;
  EndTime, StartTime, i: integer;
begin

  // 여기가 추가됨.
  SQLQuery1.SQL.Text := 'PRAGMA synchronous=0';
  SQLQuery1.ExecSQL;
  // 여기까지.

  StartTime := GetTickCount;

  for i := 1 to 1000 do begin
    QueryStr := 'INSERT INTO log (date, time, matchrate)';
    QueryStr := QueryStr + 'VALUES ("2018-10-20", "14:30:20", "' + IntToStr(i) + '");';
    try
      SQLQuery1.SQL.Text := QueryStr;
      SQLQuery1.Prepared := true;

      SQLQuery1.ExecSQL();
    except
      on E: Exception do begin
        Memo1.Lines.Add('Exception raised with message: ' + E.Message);
      end;
    end;
  end;

  EndTime := GetTickCount;
  Memo1.Lines.Add('걸린 시간: ' + IntToStr(EndTime - StartTime));

  // 여기가 추가됨.
  SQLQuery1.SQL.Text := 'PRAGMA synchronous=2';
  SQLQuery1.ExecSQL;
  // 여기까지.

end;