Quantidade de etiquetas a imprimir. Aproveitar todo o papel.

begin
  if (:codprod<>´´)
    then
      begin
          i=1;
          select p.pro_codigo,p.pro_venda,p.pro_original
          from produto p
          where p.pro_codigo=:codprod
          into :procodigo,:provenda,:prooriginal;
          if (:procodigo is not null)
            then
              begin
          while (:i<=25) do
            begin
              i=i+1;
              suspend;
            end

              end

      end
    else
      if (:codoriginal<>´´)
        then
          begin
          i=1;
          select p.pro_codigo,p.pro_venda,p.pro_original
          from produto p
          where p.pro_codigo=:codprod
          into :procodigo,:provenda,:prooriginal;
          if (:procodigo is not null)
            then
              begin
          while (:i<=25) do
            begin
              i=i+1;
              suspend;
            end

              end


          end
end

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
with zquery1 do
    begin
      CLOSE;
      sql.Clear;
      sql.Add(´ SELECT * FROM NEW_PROCEDURE(:CODORIGINAL,:CODPRODUTO)  order by procodigo ´);

      Params[1].AsString:=´´;
      Params[0].AsString:=EDIT1.Text;
      OPEN;

 if not IsEmpty
   then
     begin
{ClientDataSet1.Filter := ´PRO_CODIGO=´ +QuotedStr(Edit1.Text);
ClientDataSet1.Filtered := True;}
RvProject2.Open;
RvProject2.Execute;
RvProject2.Close;
     end
 else
   ShowMessage(´Código inexistente´);
   end;
//ClientDataSet1.Filtered := False;


end;