ошибка в коде с сохранением в файл в Delphi

[TaYgA]

Здравствуйте, столкнулся с маленькой проблемкой. Вот код проверки логина и пароля:

var
   f,f1: TextFile;
   pass,log: String;
begin
  CanClose:=false;
  AssignFile(f,extractfilepath(paramstr(0))+'pass');
  Reset(f);
  while not Eof(f) do begin
    Readln(f,log);
    Readln(f,pass);
    if (edLog.Text=log) and (lowerCase(edPass.Text)=pass) then begin
      CanClose:=true;
      break;
      if (cbSavePass.Checked=True) then begin //не выполняется это условие
        AssignFile(f1,extractfilepath(paramstr(0))+'SavePass');
        Rewrite(f1);
        Writeln(f1,edLog.Text);
        Writeln(f1,edPass.Text);
        CloseFile(f1);
      end;
    end;
  end;
  CloseFile(f);
  if not CanClose then begin
    ShowMessage('Неправельный логин или пароль!!!');
    edLog.Text:='';
    edPass.Text:='';
  end;
end;

Всё запускается и работает без ошибок. Проблема заключается в том, что если в CheckBox стоит галачка, программа должна сохранять данные в другой файл. Этого не происходит, почему не понимаю....

[dr.Chas]

var
   f,f1: TextFile;
   pass,log: String;
begin
  CanClose:=false;
  AssignFile(f,extractfilepath(paramstr(0))+'pass');
  Reset(f);
  while not Eof(f) do begin
    Readln(f,log);
    Readln(f,pass);
    if (edLog.Text=log) and (lowerCase(edPass.Text)=pass) then begin
      CanClose:=true;
      break;         <----------------Так сами цикл прерываете
      if cbSavePass.Checked then begin //можно так написать
        AssignFile(f1,extractfilepath(paramstr(0))+'SavePass');
        Rewrite(f1);
        Writeln(f1,edLog.Text);
        Writeln(f1,edPass.Text);
        CloseFile(f1);
      end;
    end;
  end;
  CloseFile(f);
  if not CanClose then begin
    ShowMessage('Неправельный логин или пароль!!!');
    edLog.Text:='';
    edPass.Text:='';
  end;
end;

[russian-stalker]

Когда вы уже слово "правильно" правильно научитесь писать?

[TaYgA]

russian-stalker, самого уже начало раздражать Надеюсь, когда выучу раскладку клавиатуры, тогда и перестану ошибаться... Спасибо, всё работает...