[Resolvido] Impressora Mecaf

Olá pessoal, estou tendo problemas com um impressora MECAF, pois estou fazendo a parte do sistema que imprime um comprovante de venda de uma livraria, mas a impressora imprime tudo errado (troca letras como o v por w, muito loco) acho que possa ser o drive, mas ja procurei na net e so acho o da Diebold Procomp IM113I, vou colocar a foto e o codigo que usei, se alguem tiver alguma opinião para me ajudar eu agradeço, obrigado a todos.

Fotos da Impressora: /applications/core/interface/imageproxy/imageproxy.php?img=http://www.infosd.net/sergio/DSC00123.JPG&key=7dcee049d9cdfd73c40f1bf11320fdd8873ea2694e9e522eb9ca51cfea7e2e27" alt="Imagem Postada" /> e /applications/core/interface/imageproxy/imageproxy.php?img=http://www.infosd.net/sergio/DSC00124.JPG&key=16a1b4e65d27225ccd5dd89d93addfab7a2a63a422d3738636a7bc0d30293896" alt="Imagem Postada" />

O código que usei para imprimir é da net, mas ja tentei vários e continua imprimindo errado: (Este imprime sem pular as linhas ficando com riscos em cima das palavras).

procedure Tfrmordcompra.BitBtn1Click(Sender: TObject);
VAR

F: TextFile;
VCOD,VDATA,VVALOR,VNOME,vdescricao, vCliente, vCodVenda, vcodProduto, VQuantidade, VPreco, vSubTotal, vNumParcela, vFormaPag, vCondicao, vValorParcela, vDesconto, vValorTotal : STRING;

begin

VNOME := DBEDIT2.Text;
VCOD := DBEDIT3.Text;
VDATA := DBEDIT3.Text;
VVALOR := DBEDIT4.TEXT;
vCliente := ednome.TEXT;
vCodVenda := DBEdit1.Text;
VDescricao := ednome.TEXT;
vDesconto := DBedit6.Text;
vValorTotal := DBedit9.Text;
vNumParcela := DBEdit11.Text;
vFormaPag := DBEdit10.Text;
vCondicao := DBEdit8.Text;
vValorParcela := DBEdit12.Text;
VQuantidade := Dm1.ADOQueryOrdcompravquantidade.Text;
VPreco := Dm1.ADOQueryOrdcompravpreco.Text;
vSubTotal := Dm1.ADOQueryOrdcompravsubtotal.Text;
AssignFile(F,'LPT1');
Rewrite(F);
Writeln(F,' Comprovante de Vendas ');

Writeln(F,#27#15+'----------------------------------------------------------------------'); //Pula linha

Writeln(F,'Emissao: '+vdata+' Orcamento: '+vcodVenda );
Writeln(F,'-----------------------------------------------------------------------------');
Writeln(F,'Cliente: '+edNome.text );
Writeln(F,'-----------------------------------------------------------------------------');
Writeln(F,'Descricao Quantidade Preço Sub-Total ');

while not Dm1.ADOQueryOrdcompra.Eof do begin // faça enquanto não for o fim da tabela
Writeln(F,#27#18+ Dm1.ADOQueryOrdcompravdescricao.text+' '+Dm1.ADOQueryOrdcompravquantidade.Text+' '+Dm1.ADOQueryOrdcompravpreco.Text+' '+Dm1.ADOQueryOrdcompravsubtotal.Text); // imprime os dados da dbgrid
Dm1.ADOQueryOrdcompra.next; // pula para o proximo registro.
end; // volta para o while até que seja o final...

Writeln(F,'-----------------------------------------------------------------------------');
if (DBedit4.text <> '') and (DBedit9.text <> '') then begin

Writeln(F,'Valor.: '+DBedit4.Text);
Writeln(F,'-----------------------------------------------------------------------------');
Writeln(F,'NumParcela.: '+DBedit11.Text+' Desconto(%): '+DBedit6.Text);
Writeln(F,'FormaPag: '+DBedit10.Text+' ValorTotal: '+DBEdit9.Text);
Writeln(F,'Condicao: '+DBedit8.Text+' ValorRecebido.: '+DBedit5.Text);
Writeln(F,'ValorParcela: '+DBedit12.Text+' Troco: '+DBedit7.text);
Writeln(F,'-----------------------------------------------------------------------------');
end;
Writeln(F,' ___________________________________________ ');
Writeln(F,' Assinatura ');
Writeln(F,'-----------------------------------------------------------------------------');
Writeln(F,' OBRIGADA PELA PREFERENCIA ');
Writeln(F,'-----------------------------------------------------------------------------');

Writeln(F, #12); // Ejeta a página

CloseFile(F);
end;

Esse é o meu problema espero ter explicado bem, se puderem me ajudar,

Obrigado

Sérgio Martins