1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

 if m_auswahl = 'Interner E-Mail-Versandt' then
  begin
    //Verbindungsinfos aus Optionen herauslesen
    Query3.Close;
    Query3.SQL.Clear;
    Query3.SQL.Add('select smtp_server, benutzer, passwort, absender from optionen');
    Query3.Open;

    IDSMTP.Host := Query3.fieldbyname('smtp_server').AsString;
    IDSMTP.Username := Query3.fieldbyname('benutzer').AsString;
    IDSMTP.Password := Query3.fieldbyname('passwort').AsString;
    IDSMTP.Port := 25;


    idMessage.Subject:= 'Ihre Bestellung vom '+e_bestelldatum.Text +
                        '; Bestellnummer: ' + e_bestellnummer.Text ;
    idMessage.From.text  := Query3.fieldbyname('absender').AsString;
    idMessage.ReplyTo.EMailAddresses := Query3.fieldbyname('benutzer').AsString;
    idMessage.Recipients.EMailAddresses := e_email.Text;//Wem soll ich die Msg senden?
    idMessage.Sender.text:= Query3.fieldbyname('absender').AsString;
    idMessage.Body.Text := 'Bestellbestätigung';

   IdSMTP.Connect;//Stelle Verbindung her
   try
      IdSMTP.Send(IdMessage);//Versuche die Nachrich zu senden
   finally
      IdSMTP.Disconnect;//Wenn du es geschafft hast, dann trenne die Verbindung
   end;

  end;