Impressão de RichEdit com quebra de agina

Gostaria de saber como imprimir em Rich edit sendo que quebre a pagina quando for necessario, estou usando o seguinte código:

procedure TFrmGer.ImpStrings(Strings: TStrings);
var
Prn: TextFile;
i: Word;
begin
if PrintDialog1.Execute then
Begin
AssignPrn(Prn);
try
Rewrite(Prn);
try
for i := 0 to Strings.Count -1 do
Begin
writeln(Prn, Strings.Strings[i]);
End;
finally
CloseFile(Prn);
end;
except
on EInOutError do
MessageDlg(´Erro na impressão do texto.´, mtError, [mbOK], 0);
end;
End;
end;

Se alguém puder me ajudar eu agradeço...