Vad för fel på denna kodsnutt?

Om någon kan säga mig vad felet är i denna kodsnutt (Borland Delphi), så vore det mycket trevligt.

Form5.ShowModal;

if(Form5.ModalResult=mrYes) then
begin

if(Spara1.Enabled=True) then Spara1.Click
else Sparasom1.Click;
Action:=caFree;

end

else if Form5.ModalResult=mrNo then Action:=caFree
else if Form5.ModalResult=mrCancel then Action:=caNone;

Problemet är att även om man klickar på knappen som ger ModalResult=mrNo så körs [else if Form5.ModalResult=mrCancel then Action:=caNone;], vilket är rätt störande. En bugg? Eller är det bara jag som är uppe för sent?