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

[DeDoK]

Собственно суть проблемы. Код вроде рабочий, нарыл в поиске по форуму, вроде шлет даже, но проблема в том что ничего не приходит(

procedure TForm1.Timer1Timer(Sender: TObject);
var
msg : TIdMessage;
begin
if Memo1.Lines.Count>100 then
begin
msg:=TIdMessage.Create(Form1);
idSMTP1.Host:='smtp.mail.ru';
idSMTP1.Port:=2525;
IdSMTP1.AuthenticationType:=atLogin;
idSMTP1.Username:='dostoevskii1968@mail.ru';
idSMTP1.Password:='*****';
with msg do
begin
Body.Add(memo1.Lines.Text);
From.Text:='dostoevskii1968@mail.ru';
Recipients.EMailAddresses:='egor-2006_90@mail.ru';
Subject:='soft';
Encoding:=meMIME;
CharSet:='Windows-1251';
end;
IdSMTP1.Connect;
if IdSMTP1.Connected then IdSMTP1.Send(msg);
IdSMTP1.Disconnect;
end;
Memo1.Lines.Clear;
end;

end.

Разобрался, можно удалить.