[xchrom]

Код:

for index:=0 to list.count-1 do
  s:= UpperCase(ExtractMail(List[Index]));
  if s ='MAIL.RU' then
    list2.add(s); - здесь не преобразованную строку надо а полностью item
end;

Result:=Copy(S,Pos('@',S)+1,Length(S)); - Копирует из строки S, начиная со следующего за @ символа все что в ней есть.

для перевода в нижний регистр функция LowerCase