ну а S-то где инициализируется???
либо
Код:
if Pos(AnsiUpperCase(Register_Familiya.Text + ' группа: ' + Register_Gruppa.Text),AnsiUpperCase(Load_From_File_Passw[iterIntCount])) > 0 Then
либо перед строкой 10 вставь:
Код:
S := Load_From_File_Passw[iterIntCount];