Fórum problemas com if elseif else #263704

não consigo testar as 3 opções do meu MESSAGEBOX vejam

begin
If dados.Q_Usuario.State in ([dsEdit,dsInsert]) then
begin
if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_yes then
begin
dados.Q_Usuario.Post;
close;
end

else if Application.MessageBox(´Salvar o registro antes de sair?´,´Sair´,MB_YESNOCANCEL)= id_no then
begin
dados.Q_Usuario.Cancel ;
close;
end
else
begin
Abort
end
end
else
begin
close;
end
end;

A MENSAGEM SE REPETE DUAS VEZES...COMO FAÇO????????????