Fórum PDV - nao fiscal com epson tm-t81 - inserir direto no dbgrid #444850

boa noite pessoal..peguei um exemplo na internet de uma tela vendas simples...mais ou menos como preciso...so que neste exemplo o rapaz usa 3 edits e 1 botao inserir - 1editcodigo, 1 edtpreco e 1 edtquantidade e 1 botao inserir, ai o usuario tem que ficar dando enter em cada edit e digitar qtd e valor.....eu precisa alterar e fazer com que ao digitar o codigo ja cairia os dados no dbgrid...codigoprod,descricao,qtd e preco e total....tipo um pdv fiscal....a qtd vai receber 1...se o usuario quiser digitar uma qtd maior ai ele muda para o campo qtd...alguem me ajuda a corrigir o exemplo que peguei...segue:

procedure TFrmCad_Venda.EdtProdutoExit(Sender: TObject);
begin
If edtproduto.Text = '' then
begin
showmessage ('Digite o código do produto');
EdtProduto.SelectAll;
edtproduto.SetFocus;
exit;
end;
with dm.QryProduto do
begin
close;
sql.Clear;
sql.add ('SELECT * FROM PRODUTO WHERE COD_PRODUTO = ' + Edtproduto.text + ' ');
open;
if recordcount = 0 then
begin
showmessage ('Produto não cadastro');
EdtProduto.SelectAll;
edtproduto.SetFocus;
exit;
end;
end;

procedure TFrmCad_Venda.BtnInserirClick(Sender: TObject);
begin
if EdtQuantidade.text = '' then
begin
showmessage ('Digite uma quantidade');
EdtQuantidade.setfocus;
exit;
end;

DbItemCod.Text := inttostr(coditem);
dm.tblItem.post;

with dm.QryItem do
begin
close;
sql.Clear;
sql.Add ('SELECT * FROM ITEM WHERE COD_ITEM = ' + inttostr(coditem) + ' ORDER BY COD_ITEM DESC');
OPEN;
edttotalitem.text := inttostr(recordcount);
dm.total := dm.total + dm.QryItemtotalvenda.Value;
end;
with dm.QryProduto do
begin
close;
sql.Clear;
sql.add ('SELECT * FROM PRODUTO');
open;
end;

dm.QryItem.Refresh;
FuncInsereItem.OnClick (self);
BtnInserir.Enabled := false;
EdtProduto.SetFocus;
Edttotalvenda.Text := floattostr(dm.total);

end;

procedure TFrmCad_Venda.EdtPrecoEnter(Sender: TObject);
begin
EdtPreco.Text := floattostr(DM.QryProdutoPreco.value);
edtpreco.SelectAll;

end;

este é o exemplo que peguei, tentei alterar mas nao estou conseguindo fazer do jeito q preciso...Alguem pode me ajudar

Aguardo a ajuda..