Остановка ADODS при OnFetchProcess

[QuAlex]

Есть задача: приостановить обработку запроса при выполнении ADOQuery по желанию пользователя.
Данные, которые уже переданы, должны остаться видимыми в Grid'е.
Я не знаю как это сделать.
В идеале нужно будет продолжить закачку, но это не обязательно.
Этот тестовый код не работает, но я хочу сделать примерно так же

procedure TTestForm.EventFetchProgress(DataSet: TCustomADODataSet;
  Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
var
  currTick: DWORD;
begin
  currTick := Windows.GetTickCount;
  // Ограничим обновление до 5 раз в секунду
  if ((currTick - Self.FTick) > 200) or (Progress = MaxProgress) then begin
    Self.FTick := currTick;
    Label1.Caption := Format('%d, Delta: %d',
      [Progress, MaxProgress-Progress]);
    Application.ProcessMessages;
  end;
  // попытаемся отменить работу
  if Self.FCancel then begin
    EventStatus := esCancel;
    Self.FCancel := false;
  end;
end;

Разумеется eoAsyncFetchNonBlocking установлен.

Ожидается, что кто-то поставит флаг FCancel и обработка остановится.
Если сделать DataSet.Close вместо EventStatus := esCancel, то все остановится, но Grid, разумеется, очистится.

И еще вопросик: для SQL Native Client и MS SQL 2005 Delta всегда равна 15 (за исключением последнего Event'а). Это нормально?