[dtestd]

При отправке возникает ошибка : "Syntactically invalid EHLO argument(s)", но на windows XP все работает.

Код:

var smtp : TIdSMTP;
    msg  : TIdMessage;
 
begin
  smtp := TIdSMTP.Create(nil);
 
  smtp.AuthenticationType := atLogin;
  smtp.Username := 'xxx@mail.ru';
  smtp.Password := 'password';
  smtp.Host     := 'smtp.mail.ru';
  smtp.Port     := 25;
 
  smtp.Connect;
 
  if smtp.Authenticate then
  begin
    msg := TIdMessage.Create(nil);
 
    msg.Subject := 'Subject';
    msg.Body.Add('Mail body.');
    msg.From.Text := 'xxx@mail.ru';
    msg.Recipients.EMailAddresses := 'xxx@mail.ru';
    smtp.Send(msg);
    smtp.Disconnect;
 
    msg.Free;
  end;
  smtp.Free;

Отправляю так. Подскажите, как отправлять на windows 7 ?