SMTP := TIdSMTP.Create(nil);
  MailMessage:= TIdMessage.Create(nil);
  SMTP.Host := 'xxxx';
  SMTP.Port := 25;
  SMTP.AuthenticationType := atLogin;
  SMTP.Username := 'lalelu';
  SMTP.Password := 'sososo';

  MailMessage.AddHeader(MailMessage.GenerateHeader.Text);
  MailMessage.From.Address := 'Meine@Email.de';

  MailMessage.Recipients.EMailAddresses := email;

  MailMessage.Subject := subject;

  MailMessage.Body.Text := StringReplace(bodytext,'
',#13#10,[rfreplaceall,rfIgnoreCase]);

  try
    SMTP.Connect(5000);
    SMTP.Send(MailMessage);
  except on E:Exception do
    //...
  end;