Постраничный вывод в TMemo

const
  TXTFileName = '1.txt'; // имя файла с текстом
  LinesOfPage = 30; // кол-во строк на странице

procedure TForm1.ShowPage;
// Отображает текущую страницу
var
  i: Integer;
begin
  RichEdit1.Clear;
  for i := LinesOfPage * (Page - 1) to LinesOfPage * Page - 1 do begin
    if i >= TXT.Count then
      Break;
    RichEdit1.Lines.Add(TXT);
  end;
  Label1.Caption := 'Страница: ' + IntToStr(Page); // вывод номера страницы
  Label2.Caption := 'Всего: ' + IntToStr(PageCount);
end;

function TForm1.PageCount: Integer;
// Считаем кол-во страниц
begin
  Result := TXT.Count div LinesOfPage;
  if TXT.Count mod LinesOfPage > 0 then
    Inc(Result);
end;

procedure TForm1.NextPage;
// Переход к следующей странице
begin
  if Page < PageCount then begin
    Inc(Page);
    ShowPage;
  end;
end;

procedure TForm1.PrevPage;
// Переход к предыдущей странице
begin
  if Page > 1 then begin
    Dec(Page);
    ShowPage;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TXT := TStringList.Create; // TXT: TStringList;
  TXT.LoadFromFile(TXTFileName);
  Page := 1; // Page: Integer;
  ShowPage;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PrevPage;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  NextPage;
end;