Erro - Não grava - Passa pelo try e vai p/ o bloco except

Oi galera. Estou com a maior dificuldade na procedure abaixo. Informo ainda que a procedure foi de outro operador. Uma das minhas atribuições nesta empresa que estou atualmente é documentar tudo, coisa que o outro programador não. Bem: Não está gravando a query QPrinc passa pelo try e vai direto ao except que é o erro. Alguém poderia ajudar-me. Ozias

procedure TFPaiCad.BitBtn3Click(Sender: TObject);
Var vID : string;
begin

If not (QPrinc.State in [dsEdit,dsInsert]) Then exit;
Try
vID := QPrinc.FieldByName(´ID´).AsString;
QPrinc.Post;
QPrinc.ApplyUpdates;
DM.IBTransaction1.CommitRetaining;
kSalvo := True;
Except
kSalvo := False;
DM.IBTransaction1.RollbackRetaining;
MessageDlg(´Cuidado! Registro NÃO Gravado!...´,mtError,[mbOk],0);
Exit;
End;
//QPrinc.FetchAll;
QPrinc.Close;
QPrinc.Open;
QPrinc.Locate(´ID´,vID,[loPartialKey]);
PageControl1.ActivePage := TabGeral;
EdPesq.SetFocus;
end;