var
 bodytext: TStringList;
begin
 bodytext:=TStringList.Create;
 bodytext.Add(Edit1.text);
 IdSMTP1.Host:='smtp.mail.ru';
 IdSMTP1.Port:=25;
 IdSMTP1.Username:='io';
 IdSMTP1.Password:='*****';
 IdSMTP1.AuthenticationType:=atLogin;
 with IdMessage1 do
  begin
   IdMessage1.Body.Assign(bodytext);
   From.Text := 'ddd';
   Recipients.EMailAddresses := 'dd';
   Subject := '==';
  end;
 IdSMTP1.Connect;
 try
  showmessage('I?iecioei iiaee??aiea e na?aa?o');
  IdSMTP1.Send(IdMessage);
 finally
  IdSMTP1.Disconnect;
 end;