Delphi - Imprimir Memo guardado en tabla Paradox cuando ...

Hola gente: Deseo imprimir el contenido de un Memo guardado en una tabla Paradox ( este campo se llama tambien 'Memo1' con type ' M' ) .
Cuando el memo es visualizado en el form, por medio de un Button , al dar la orden , el texto del memo sea impreso en la impresora.

En Uses coloque Printers y en el Form coloque un PrintDialgog de la paleta Dialogs. luego en Events del Button en OnClick digité un código que no me dió para nada cierto y es así:

procedure TForm1.Button1OnClick( sender:TObject );
var linea,tm,i:integer;
begin
if not PrintDialog1.execute then exit;
printer.Begindoc;
tm:=Printer.Canvas.TextHeight('O');
linea:=3*tm;
for i:=0 to Memo1.lines.count-1 do begin
Printer.Canvas.TextOut( 0 , linea , Memo1. );
linea:=linea+tm;
end;
Printer.enddoc;
end;

Si alguien sabe como y si me pueden dar una mano les agradezco.

fernando

Gracias de todas maneras a quienes pensaron en contestarme.
Ya lo he solucionado.
Chau!!