procedure TMDIChild.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if synedit1.Modified = true then
begin
if messagebox(handle, 'Desea guardar los cambios antes de salir?', 'Selecciona', MB_YESNO)=IDYES then
begin
if (SaveDialog1.Execute) then
begin
synedit1.Lines.SaveToFile(SaveDialog1.FileName);
end;
CanClose := True;
end
else
begin
CanClose := True;
end;
end;
end;