Cual es el problema con este codigo?

[THACKER]

Hmmm no me funciona :S
Se queda el No pegado sera que puedes completar el script con el IF para si el usuario selecciona si para guardar los cambios?

Espero respuesta que no quiero raspar ! :'(

Código Delphi [-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified = true then
begin
CanClose := messagebox(handle, 'Press Y to Exit ? [Y or N]', 'Select...', MB_YESNO)=IDYES;
  messagebox (handle, 'YES', 'YEA', mb_iconinformation);
    end else begin
      messagebox (handle, 'NO', 'NO', mb_iconinformation);
     end;
close;
end;