Como imprimir o conteúdo de um Memo diretamente.

eu testei isso com um rich edit não sei se funciona com um memo, mas em todo caso:

//coloque um print dialog box

var
printfile: textfile;
I: integer;

begin
if printdialog1.execute then
begin
AssignPrn(PrintFile);
Rewrite(PrintFile);
Printer.Canvas.Font:=Memo1.Font;
For I:=0 to Memo1.Lines.Count -1 do
writeln(PrintFile,Memo1.Lines[I]);
System.Closefile(PrintFile);
end;
end;

Valeu e Feliz Páscoa