Вопрос о Pagefooter

Здравствуйте. Есть отчет, в котором подвал 1 страницы отличается от последующих.

procedure PageFooter1OnBeforPrint(Sender: TfrxComponent);
begin

Memo_f26.Text := GetAttrValue(dsDocs.FieldByName('_ID_VERSION').AsInteger, 'Наименование документа')+'-УЛ';
// меняем футер в многостраничном отчёте
if <Page> = 1 then
begin
Memo_F1.Visible:=true;
Memo_F2.Visible:=true;
Memo_F3.Visible:=true;
Memo_F4.Visible:=true;
Memo_F5.Visible:=true;
Memo_F6.Visible:=true;
Memo_F7.Visible:=true;
Memo_F8.Visible:=true;
Memo_F9.Visible:=true;
Memo_F10.Visible:=true;
Memo_F11.Visible:=true;
Memo_F12.Visible:=true;
Memo_f13.Visible:=true;
Memo_f14.Visible:=true;
Memo_f15.Visible:=true;
Memo_f16.Visible:=true;
Memo_f17.Visible:=true;
Memo_f18.Visible:=true;
Memo_f19.Visible:=true;
Memo_f20.Visible:=true;
Memo_f21.Visible:=true;
Memo_f22.Visible:=true;
Memo_f23.Visible:=true;
Memo_f24.Visible:=true;
Memo_f25.Visible:=true;
end;
if <Page> > 1 then
begin
Memo_F1.Visible:=false;
Memo_F2.Visible:=false;
Memo_F3.Visible:=false;
Memo_F4.Visible:=false;
Memo_F5.Visible:=false;
Memo_F6.Visible:=false;
Memo_F7.Visible:=false;
Memo_F8.Visible:=false;
Memo_F9.Visible:=false;
Memo_F10.Visible:=false;
Memo_F11.Visible:=false;
Memo_F12.Visible:=false;
Memo_f13.Visible:=false;
Memo_f14.Visible:=false;
Memo_f15.Visible:=false;
Memo_f16.Visible:=false;
Memo_f17.Visible:=false;
Memo_f18.Visible:=false;
Memo_f19.Visible:=false;
Memo_f20.Visible:=false;
Memo_f21.Visible:=false;
Memo_f22.Visible:=false;
Memo_f23.Visible:=false;
Memo_f24.Visible:=false;
Memo_f25.Visible:=false;
end;
end;

Проблема в том, что на страницах со 2-й до последней остается пустое место, а детальные строки переносятся на следующий лист.

Можно эту проблему решить? Дайте пожалуйста совет, как это сделать.