Проблемы с отправкой почты через SMTP

[Григоренко Степан]

Добрый день всем. Я написал прогу, которя отправляет письмо с вложением через SMTP и Message.

var
  Form1: TForm1;
  att: TIdAttachmentFile;
  msg:tidmessage;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
msg:=TIdMessage.Create(nil);
with msg do
begin
Body.Assign(Memo1.Lines);
From.Text := '*******@yandex.ru'; // майл отправителя письма
Recipients.EMailAddresses := '*******@yandex.ru'; // майл получателя письма
Subject := 'Лог'; // тема письма
end;

{msg.MessageParts.Clear;
att := TIdAttachmentFile.Create(msg.MessageParts,'d:\WoT.txt');}

{TIdAttachmentFile.Create(msg.MessageParts, 'c_disc.zip');}

IdSMTP1.Connect;

if IdSMTP1.Connected
then begin
     IdSMTP1.Send(msg);
     showmessage('Отправлено');
     IdSMTP1.Disconnect;
     end
else ShowMessage('Ошибка при отправке');

end;

Проблема в том, что если посылать без аттачмента, то все замечательно приходит (все хосты, логины и пароли прописаны в свойствах компонента SMTP). Как только растэгать какой-либо вариант прикрепления аттачмента, оно у меня намертво зависает на строчке

IdSMTP1.Send(msg);

, хотя вроде все правильно и компилятор не ругается. У меня стоит Embaracadero RAD Studio 2010, версия инди 10.5.5. На форуме решения не нашел. Помогите пожалуйста!