[ryderx34]

Код:

Text := Copy(Memo.Text, A, B);
for i := Count - 1 downto 0 do
  if Pos('PAGE', Strings[i]) <> 0 then Delete(i);
SaveToFile(SaveDialog1.FileName);