begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=25;
IdSMTP1.Username:='io';
IdSMTP1.Password:='*****';
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do
begin
Body.Assign(Edit1.text);
From.Text := 'ddd';
Recipients.EMailAddresses := 'dd';
Subject := '==';
end;
IdSMTP1.Connect;
try
showmessage('Ïðîèçîøëî ïîäêëþ÷åíèå ê ñåðâåðó');
IdSMTP1.Send(IdMessage);
finally
IdSMTP1.Disconnect;
end;