[Alegun]

Код:

var
iterIntCount: integer;
Load_From_File_Passw: TStrings;
flg: boolean;
begin
 if (Register_Familiya.Text = '') or
    (Register_Gruppa.Text = '') or
    (Register_Password.Text = '') then
      begin
       Application.MessageBox('Вход невозможен!' + #13#10 +
        'Заполните все поля', 'Внимание!', + MB_ICONWARNING);
       Exit;
      end;

  Load_From_File_Passw:= TStringList.Create;
try
  Load_From_File_Passw.LoadFromFile(
   ExtractFilePath(Application.ExeName)+'lgn.tnt');
  flg:= false;
  for iterIntCount:= 0 to Load_From_File_Passw.Count-1 do
  if Pos(AnsiUpperCase(Register_Familiya.Text + '   группа: ' +
       Register_Gruppa.Text),
       AnsiUpperCase(Load_From_File_Passw[iterIntCount])) > 0 then
         flg:= true;

  if flg then
   begin
    Application.MessageBox('Вы уже зарегистрированы!' + #13#10 +
     'Вы можете авторизоваться!', 'Внимание!',+ MB_ICONWARNING);
   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');

     Application.MessageBox('Регистрация успешно завершена!'+#13#10+
     'Вы можете авторизоваться', 'Внимание!',+ MB_ICONASTERISK);
    end;
  end;
    Login_Familiya.Text:= Register_Familiya.text;
    Login_Gruppa.Text:= Register_Gruppa.text;
    Register_Familiya.clear;
    Register_Gruppa.clear;
    Register_Password.clear;
 finally
  Load_From_File_Passw.Free;
 end;
end;

не запускал, ошипки вылазят (компонентов некоторых нету)