idsmtp - проблемма отправки мыла

[mirbag]

Возникла проблема с idsmtp. На моём компе работает, а на другом нет. В чём может быть лажа??? Прокси не на одной машине нету.
Сам тест такой:

var
  IdMessage1: TIdMessage;
begin
  IdSMTP1.Host := 'smtp.mail.ru';
  IdSMTP1.port := 25;
  IdSMTP1.AuthenticationType := atLogin;
  IdSMTP1.Username := 'mirbag';
  IdSMTP1.Password := '******';
  IdMessage1 := TIdMessage.Create(Form1);
  with IdMessage1 do
      begin
        Memo1.Lines.Add('    ОТЧЁТ ЗА ' + DateToStr(now));
        Memo1.Lines.Add('Касса по тетради: ' + Edit1.Text);
        Memo1.Lines.Add('Касса в програме: ' + Edit2.Text);
        Memo1.Lines.Add('Реальные деньги: ' + Edit3.Text);
        Memo1.Lines.AddStrings(Memo2.Lines);
        Body.Assign(Memo1.Lines);
        From.Text := 'mirbag@mail.ru';
        Recipients.EMailAddresses := 'mirbag1@ukr.net';
        Subject := 'SB ' + DateToStr(now);
      end;
  try
      IdSMTP1.Connect(180000);
  except
      ShowMessage('Ошибка подключения к mail.ru');
  end;
  if idsmtp1.Connected then
      begin
        memo2.Lines.Add('Связь - ок!');
        try
            IdSMTP1.Send(IdMessage1);
            memo2.Lines.Add('Передача завершена!');
        finally
            IdSMTP1.Disconnect;
        end;
      end
  else
      begin
        showmessage('Передача не прошла. Сообщите о кассах другим способом!!!');
      end;
end;