Result:=Copy(S,Pos('@',S)+1,Length(S)); 
 не могу разобраться что делает функция, в конечено файле сохраняеться только mail.ru(3 раза), нужно польностью все мыло.  
 
Как я понял, UpperCase - переводит все символы в верхний регистр, а как все в нижний преревести? 
		
	
		
		
		
		
		
	
		
		
	
	
	 |