Impressão no XP

oi pessoal,

será que vcs. podem me ajudar.

eu tenho um software que utiliza a seguinte forma de emitir cupom em impressoras de 40 colunas:

printer.BeginDoc;
Printer.Canvas.Pen.Width := 5;
Printer.Canvas.Font.Name := ´COURIER´;
Printer.Canvas.Font.Size := 8;
Linha := 0;
Coluna:= 0;
Tamanho := Printer.Canvas.TextWidth(´a´);
TbEmpresa.open;
TbEmpresa.first;
pmLOJA := TbEmpresaloja.asstring;
Printer.Canvas.TextOut (Coluna,Linha,TBempresaNOME.asstring);
Linha := Linha - Printer.Canvas.Font.Height ;
Printer.Canvas.TextOut(Coluna,Linha,´Loja :´+TbEmpresaLOJA.asstring);
Linha := Linha - Printer.Canvas.Font.Height;
Printer.Canvas.TextOut
Coluna:= 0;

e assim por diante;

eu costumo instalar a impressora como generico somente texto e no windows 98 ele funciona normal, acontece que eu fui instalar esse software no XP e quando ele vai imprimir o cupom ele não salta a linha imprimindo tudo na mesma linha do cupom e sobrepondo a impressao.

O que eu tenho de fazer.

Obrigado

RR