Hola THACKER, hay varios errores
1. Hay un end que no cierra ningun begin, por lo que no te va a compilar.
2. En el evento
CloseQuery lo unico que debes modificar es el parametro
CanClose y no denes llamar de nuevo a Close porque te va a dar error
Asi que el codigo deberia quedar asi:
Código Delphi
[-]
procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified then
CanClose := MessageBox(handle, 'Press Y to Exit ? [Y or N]', 'Select...', MB_YESNO) = IDYES;
end;
Suerte