Como Generar Dos Ordenes automaticamente segun la cantidad de lineas

[webmasterplc]

Buenas estoy realizando una consulta para traer registros de 11 en 11 para eso tenego un contador pero cuando ejecuto la consulta me da un error que adjuntare en el mensaje, el codigo para realizarlo es el siguiente.

Código Delphi [-]
var
 Count: Integer;

procedure Tformfacturar.BringEleven(var Count: Integer);
begin
  Count:=0;
  datos.sqfacturas.Close;
  datos.sqfacturas.SQL.Text:='SELECT * FROM dhistoria LIMIT :NUM * 11, 11';
  datos.sqfacturas.ParamByName('NUM').AsInteger:=Count;
  datos.sqfacturas.Open;
  if not datos.sqfacturas.IsEmpty then
  begin
    // :: Aqui lo que quieras hacer con los 11 registros obtenidos
    while not datos.sqfacturas.Eof do
    begin
      Lst1.Items.Add(datos.sqfacturas.FieldByName('nhistoria').AsString);
      datos.sqfacturas.Next;
    end;
    // ::
    Inc(Count);
  end
  else Count:= -1
end;

el procedimiento lo llamo desde un boton

Código Delphi [-]
if Count <> -1 then
  begin
    BringEleven(Count);
  end;
end;