var
 StringList: TStringList;
 LoginList: TextFile;
 Email, I: Integer;
 MLogin{, MServer}: String;
begin
 StringList := TStringList.Create; // Создаем лист
 StringList.LoadFromFile('C:\email.txt'); // Загружаем лист
 AssignFile(LoginList, 'C:\LoginList.txt'); // Создаем файл
 ReWrite(LoginList); // Даем права на запись
 for I := 0 to (StringList.Count - 1) do
 begin
  Application.ProcessMessages; // шоб не зависло
  Email := Pos('@', StringList.Strings[i]); // Находим '@'
  MLogin := Copy(StringList.Strings[i], 1, Email - 1); // Вытягиваем логин
  //MServer := Copy(StringList.Strings[i], Email{ + 1}, Length(StringList.Strings[i])); // Вытягиваем сервер
  //Записываем вытянутые данные
  //ListBox1.Items.Add(MLogin); // Добовляем в список логин
  //ListBox2.Items.Add(MServer); // Добовляем в список сервер
  WriteLn(LoginList, MLogin); // Записываем логин(ы)
 end;
  CloseFile(LoginList); // Закрываем дескриптор
  StringList.Free; // Удаляем лист