Imprimir somente pagina intermediária

procedure TFMainView.Imprimir;
var
  Lin, Tm, I, J: Integer;
begin
  //-- Configura impressao
  Printer.Title := Title;
  Printer.BeginDoc;
  Printer.Canvas.Font.Name := ´Courier New´;
  Printer.Canvas.Font.Size := Printer.Canvas.Font.Size -1;
  Printer.Canvas.Font.Color := FontColor;

  Tm := Printer.Canvas.TextHeight(´O´);
  Lin := 6 * Tm;
  J := 0;
  for i:=0 to RchEdt.Lines.Count-1 do
    begin

      //-- Muda a pagina se estiver na linha 95
      //-- Tenho q mudar a maneira de ejetar a pagina[b]
      if J >= 95 then
        begin
          Printer.Canvas.TextOut( 0 , Lin , ´>> Continua...´ );

          //-- Incializa variaveis
          J := 0;
          Lin := 6 * Tm;
          Printer.NewPage;
        end;
      Printer.Canvas.TextOut( 0 , Lin , RchEdt.Lines[i] );

      //-- Incrementa para escrever na proxima linha
      Lin := Lin +Tm;

      //-- Incrementa o numero da linha impressa
      Inc(J);
    end;
  Printer.EndDoc;
end;