Como Generar Dos Ordenes automaticamente segun la cantidad de lineas

[webmasterplc]

Bueno le sumo 11 al count y si funciona no se si sea lo mas opcitmo pero el codigo lo deje asi

Código Delphi [-]
procedure Tformfacturar.BringEleven(var Count: Integer);
begin

  datos.sqfacturas.Close;
  datos.sqfacturas.SQL.Text:='SELECT * FROM dhistoria WHERE nhistoria = :historia LIMIT :NUM , 11';
  datos.sqfacturas.ParamByName('NUM').AsInteger:=Count;
  datos.sqfacturas.ParamByName('historia').AsInteger:=StrToInt(ethistoria.Caption);
  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('codigo').AsString);
      datos.sqfacturas.Next;
    end;
    // ::
    Count:=Count + 11;
  end
  else Count:= -1