Fórum Tabela de estoque. Erro em entrada de dados... #186651

Saudações, estou tentando fazer o seguinte no meu programa, ao cadastrarmos um produto na tabela, caso esta seja a primeira compra dele o campo de saída receba 0 e o campo de qtde atual receba diretamente a qtde comprada, caso contrário, se o nome já existir e tiver alguma saída desse produto, o campo de qtde atual receberá a qtde comprada menos a saída. O programa compila e executa sem problema mas quando eu ponho algum produto novo ele acusa que o campo de saída fica com um valor inteiro ´ ´ que não é válido. Como resolvo isso? Álguém sabe ajudar? Detalhe: é a primeira vez que tento fazer esse lance tipo estoque e estou precisando mesmo de ajuda. Muito obrigado.

procedure Tfrmcompesc.btconfirmarClick(Sender: TObject);
begin
fim;
if application.messagebox(´Confirma a Atualização?´,´Confirme´, mb_yesno) = idyes then
begin
try
if dbnome.text <> tbescNome.asstring then
begin
tbesc.append;
tbescQtdesai.asinteger := 0;
tbescQtdent.asinteger := strtoint(dbqtde.text);
tbescQtdeatual.asinteger := strtoint(dbqtde.text);
tbesc.post;
tbesc.close;
tbesc.open;
end
else
tbesc.append;
tbescQtdent.asinteger:= tbescQtdent.asinteger + strtoint(dbqtde.text);
tbescQtdesai.asinteger := tbescqtdesai.asinteger;
tbescQtdeatual.asinteger := tbescQtdent.asinteger - tbescQtdesai.asinteger;
tbesc.post;
tbesc.close;
tbesc.open;
except begin
MessageDlg (´Não foi possível registrar esta compra´, mtInformation,[mbOk],0);
exit;
end;
end;
end;
end;