Impressão do comprovante de vendas

Na paleta de componentes, clique na guia Additional. Em seguida, dê um clique sobre o componente BitBtn
para inserí-lo no formulário. No Object Inspector clique em eventos e dê um clique duplo sobre o OnClick e insira o código.

procedure TfVendas.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 := qrItensVendaQuantidade.Text;
VPreco := qrItensVendaPreco.Text;
vSubTotal := qrItensVendaSubTotal.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 qrItensVenda.Eof do begin // faça enquanto não for o fim da tabela
Writeln(F,#27#18+qrItensVendaDescricao.text+' '+qrItensVendaQuantidade.Text+' '+qrItensVendaPreco.Text+' '+qrItensVendaSubTotal.Text); // imprime os dados da dbgrid
qrItensVenda.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;