[Асяу]

lmikle, если я делаю проверку первой - он проверяет нормально, но если ввожу данные, которые уже есть в документе - List index out bounds (55) - такая ошибка.

Код:

 begin
  Load_From_File_Passw:=TStringList.Create;
  Load_From_File_Passw.LoadFromFile(ExtractFilePath(Application.ExeName)+'lgn.tnt');
  for iterIntCount:=0 to Load_From_File_Passw.Count -1 do
      begin
      if (Register_Familiya.Text = '') or (Register_Gruppa.Text = '') or (Register_Password.Text = '') then
          begin
          Application.MessageBox('Вход невозможен!'+#13#10+'Заполните все поля', 'Внимание!',+ MB_ICONWARNING);
          Exit;
          end
          end;
            if Pos(AnsiUpperCase(Register_Familiya.Text + '   группа: ' + Register_Gruppa.Text),AnsiUpperCase(Load_From_File_Passw[iterIntCount])) > 0 Then
               begin
               Application.MessageBox('Вы уже зарегистрированы!'+#13#10+'Вы можете авторизоваться!', 'Внимание!',+ MB_ICONWARNING);
               Login_Familiya.Text:= Register_Familiya.text;
               Login_Gruppa.Text:= Register_Gruppa.text;
               Register_Familiya.clear;
               Register_Gruppa.clear;
               Register_Password.clear;
               end else
                  begin
                  Registr_Familiya_P:=Trim(Register_Familiya.Text);
                  Registr_Gruppa_P:=Trim(Register_Gruppa.Text);
                  Registr_Password_P:=Trim(Register_Password.Text);
                  Load_From_File_Passw.Add(Register_Familiya.Text+'   группа: '+Register_Gruppa.Text+'     '+Register_Password.Text);
                  Load_From_File_Passw.Add('______________________________________________________');
                  Load_From_File_Passw.Add(' ');
                  Load_From_File_Passw.SaveToFile(ExtractFilePath(Application.ExeName)+'lgn.tnt');
                  Login_Familiya.Text:= Register_Familiya.text;
                  Login_Gruppa.Text:= Register_Gruppa.text;
                  Register_Familiya.clear;
                  Register_Gruppa.clear;
                  Register_Password.clear;
                  Application.MessageBox('Регистрация успешно завершена!'+#13#10+'Вы можете авторизоваться', 'Внимание!',+ MB_ICONASTERISK);
                  end;
  end;