function Sort_Emails(Emails, Mask, SortingMails: PChar): Boolean;
var
  StringList: TStringlist;
  i, index: Integer;
  lpbuf: array [0..1028] of Char;
  SStr: TStringlist;
begin
  Result:=false;
  StringList:=TStringList.Create;
  SStr:=TStringList.Create;

  StringList.LoadFromFile('email.txt');
    for i:=0 to StringList.Count-1 do
    begin
      // нашли индекс маски (@mail.ru)
      StringList.Find(Mask, index);
      // сохранили его в отдельный файл
      //lstrcpy(lpbuf, PChar(StringList.ValueFromIndex[index])); // вот здесь 
     // SStr.LoadFromFile(lpbuf); // и вот здесь
      // теперь удаляем его из списка
      StringList.Delete(index);
      // сортируем
      StringList.Sort;
    end;

   SStr.SaveToFile(SortingMails);
   SStr.Free;
   StringList.Free;
   Result:=true;
end;