Verificar estoque ao sair da célula do dbgrid

Boa tarde pessoal,
estou precisando de uma ajuda de vcs para mim terminar um softwarde de controle de estoque.

tenho um formulario pra saída de produtos do estoque..
nele tenho um dbgrid no qual eu entro com o produto e a qtdade de saída.
pus a seguinte rotina para verificar.. mas está dando errado.. o que poderia fazer..

procedure TFrmMovimento.DBGrid2ColExit(Sender: TObject);
begin
if dbgrid2.SelectedIndex = 1 then
begin
IF DM.ITENSMOVQtdade.Value > 0 then
begin
IF DM.MOVIMENTONFlag.Value = ´S´ then
begin
DM.QtProdutos.Close;
DM.QtProdutos.Params[0].AsString:= DM.ITENSMOVIdProduto.AsString;
DM.QtProdutos.Open;
IF DM.QtProdutosESTOQUEATUAL.Value < DM.ITENSMOVQtdade.Value then
begin
Application.MessageBox(´Quantidade em estoque indisponível para operação!´,´Alerta!´,mb_ok+mb_iconinformation);
DM.ITENSMOVQtdade.Value:= 0;
dbgrid2.SelectedIndex:= dbgrid2.SelectedIndex - 1;
abort;
end;
end;
end
else
begin
Application.MessageBox(´Quantidade tem que ser maior que ´0´!´,´Alerta!´,mb_ok+mb_iconinformation);
dbgrid2.SelectedIndex:= dbgrid2.SelectedIndex - 1;
abort;
end;
end;

-------------------------------------------
ele não está pegando o valor do dbgrid.. então ele sempre cai no quantidade tem que ser >0.. fiz uma gambiarra para pegar esse valor, mas ele não volta para célula que mandei..
Não sei se é pq a qtdade é a ultima célula do dbgrid
valeu pela ajuda
Eric