Fórum Função que não funciona... #218917

Você precisa ser mais claro no que quer que a função faça.
Da forma que está escrita após sair do
ChamarFormCRMensQuitar(Sender) vai executar as três linhas

Quitar(Sender);
Table2.Delete;
if Table2.RecordCount = 0 then ValidaPendClientes(Sender);

Veja abaixo colocando as duas primeiras linhas dentro do segundo if:

if strtofloat(Edit5.Text)<> Strtofloat(Edit3.Text) then
ChamarFormCRMensQuitar(Sender)
else
if MessageDlg(´Quitar documento de nº ´+ inttostr(Table2CodSistema.value) + ´ ?´,mtConfirmation,[mbYes,mbNo],0)<>mrYes then Abort
else
begin
Quitar(Sender);
Table2.Delete;
end;
if Table2.RecordCount = 0 then ValidaPendClientes(Sender);

E para não executar a ultima linha tambem é só coloca-la antes do end anterior a ela.

Olá
Tente fazer o seguinte:
Na linha

faça
O Abort dispara uma exceção silenciosa, carregando o fluxo do programa para o fim d uma instrução try/except. Já o Exit sai efetivamente do procedure, q suponho q seja o q vc esteja querendo fazer.
Abraços

Muito Obrigado....deu certinho....