cargar varias veces sin salir del formulario

[jose.ignacio.ve]

Hola pude solucionar el problema. pero ahora tengo otro.

Código Delphi [-]
 repeat
     vence:=   DaysInMonth(now)-1;
     if(modificacion= false)then
        begin
             fmodulo.tSocios['fecha_inicio']:=self.DBfecha_ini.Text;
          end
     else
      begin
        fmodulo.tSocios.Active:=true;
        fmodulo.tSocios.Edit;
        modificacion:=false;
      end;
         // verificacion de campos obligarotios
        //....codigo de validacion...
               if (Application.MessageBox('¿DESEA CARGAR OTRO ALUMNO?','GIMNASIO NENINA', MB_YESNO +MB_ICONQUESTION)= ID_YES) then
               begin

                   seguir:=true ;
                   fmodulo.tSocios.Active:=true;
                   fmodulo.tSocios.Insert;
                   falumno:=TFAlumno.Create(self);
                   fAlumno.DBfecha_ini.Text:= datetostr(now);
                   FAlumno.ShowModal;
               end
               else
                   seguir:=false;
      until (NOT seguir) ;

pero tengo un problema. Si el usuario pone que si desea cargar otro alumno y presiona el boton de cancelar me sale un error ya que vuelve a entrar el ciclo. tendria que parar el ciclo si es que presiona el boton cancelar. Si algun amable que me ayude con el problema..