Aparte necesito una pequeñita ayuda. Es que cuando se cierra la aplicación te pregunte si quieres guardar. Entonces yo he hecho esto, pero si clico en cualquier botón me lo vuelve a preguntar(dos veces, luego hace lo que tiene que hacer).
Código Delphi
[-]If cambiado = true then begin
form3:=Tform3.Create(Self);
if form3.ShowModal=mrOk then beginform3.Free;
if form1.SaveDialog1.Execute then beginForm1.memo1.Lines.SaveToFile(form1.SaveDialog1.FileName);
halt;
end;
end
else if form3.ShowModal=mrCancel then begincanclose:=false;
form3.Destroy;
end;
end;
end;