Como Generar Dos Ordenes automaticamente segun la cantidad de lineas

[webmasterplc]

Ok imprimo mediante reporteador Fast Report
Uso Mysql
me conecto con MyDac
y este es el codigo que uso para generar la factura

Código Delphi [-]
procedure TformTotalizar.btn4Click(Sender: TObject); 
var   
  pfactura,npfactura:Integer; 
begin 
  with datos.sqsetup do       
  begin       
    SQL.Clear;       
    SQL.Add('Select * From setup');       
    ExecSQL;       
    pfactura:= FieldByName('pfactura').AsInteger;       
  end; 
  npfactura:= pfactura+1;  
  with datos.sqsetup do       
  begin       
    SQL.Clear;       
    SQL.Add('Update setup');       
    SQL.Add('set pfactura=:npfactura');       
    ParamByName('npfactura').AsInteger:=npfactura;       
    ExecSQL;       end; //Datos de factura 
    with datos.tfacturas do     
    begin     
      Close;     
      if Active=False then Active:=True;     
      Insert;     
      Append;     
      FieldByname('fact_numero').AsInteger := pfactura;     
      FieldByname('fact_fecha').AsDateTime := Now;     
      FieldByname('fact_ncontrol').AsString := edtncontrol.Text;     
      FieldByname('fact_codigohistoria').AsString := edthistoria.Text;     
      FieldByname('fact_nombre').AsString := edtrazonsocial.Text;     
      FieldByname('fact_codigocliente').AsString := codigocliente;     
      FieldByname('fact_rif').AsString := edtrif.Text;     
      FieldByname('fact_exento').AsCurrency := totalfactura;     
      FieldByname('fact_total').AsCurrency := totalfactura;     
      FieldByname('fact_direccion').AsString:= edtdireccion.Text;     
      FieldByname('fact_paciente').AsString:= edtpaciente.Text;     
      Post;     
   end;