Printer.Canvas Imprime Basura

[berna]

Bien mi problema es que al estar imprimiendo un documento de manera directa, mediante las instrucciones printer.Canvas.TextOut en una impresora epson dfx-5000+ con el tipo de papel USA Standar, imprime basura de manera aleatoria.

De manera mas explicita al mandar imprimir el primer documento, imprime basura en la cuarta, sexta, y ultima linea,esto se puede darse en el inicio o en el final de esa linea, Sin terminar de ejecutar el programa envio de nuevo el documento pero ahora la basura la imprimir en la primera, y ultima linea. y asi sucesivamente, entonces no hay un patron de comportamiento en la impresion de la basura. Que hago...........¡¡¡

El procedimiento que utilizo es el siguiente espero que alguien me pueda ayudar

Printer.Title:='Doc';
Papel(DMPAPER_FANFOLD_US);
printer.BeginDoc;
Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);
printer.Canvas.Font.Size:=10;
GetTextMetrics(Printer.Canvas.Handle, tm);
try
Encabezado;
Cuerpo;
Totales;
finally
Printer.EndDoc;
end;

Gracias de antemano y un saludo......