[Андрей Олегович]

Доброго времени суток, уважаемые программисты!
Столкнулся с проблемой:
При отправки имейл и присоеденении файла меняется кодировка!
Т.е. Если я отправляю мейл без атача, письмо доходит, и читабельно.
Если присоеденяю файл то текст сообщение будто "Теряет" кодировку, и приходят "кракозябры".
Также изменяется имя файла на нечитабельное.
Но мейл доходит вместе с атачем.
с английскими буквами все нормально, проблема в русской кодировке

Код:

IDSMTP1.Host:='хост.kz';
IDSMTP1.Port:=25;
IDSMTP1.Username:='отправитель'; 
IDSMTP1.Password:='пароль';
IdSMTP1.AuthenticationType:=atLogin; 
TidAttachment.Create(IdMessage1.MessageParts,'имя файла.xls');
IdMessage1.CharSet:='windows-1251';
IdMessage1.ContentType:='text/plain';


with IdMessage1 do begin
      Body.text:=memo1.text;
      CharSet:='windows-1251';
      ContentType:='text/plain';



From.Text := 'откого'; 
Recipients.EMailAddresses := memo2.Lines[per]; // номер строки кому
Subject:=edit3.Text; //тема


//IdMessage1.AttachmentEncoding:='TEXT';   // тут ругается, если убрать коменты, и точно не знаю как правильно присвоить значение

 CharSet:='windows-1251';
      ContentType:='text/plain';// в сотый раз пытался изменить кодировку

end;
idsmtp1.Connect();
if idsmtp1.connected then
idsmtp1.Send(idmessage1);
idsmtp1.disconnect;

Заранее спасибо!
П.С. Форум перечитывал, Гугл Гуглил!