1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//Serverdaten
  IdSmtp.Host := 'smtp.googlemail.com';
  IdSmtp.Port := 25;

  //Benutzerdaten für Authentifizierung
  IdSmtp.Username := 'meinemailaddy';
  IdSmtp.Password := 'meinpw';
  try
    IdSmtp.Connect;
    IdSmtp.Send(IdMessage);
  finally
    IdSmtp.Disconnect;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Procedure Tf_bestellung.BesttigungviaEMail1Click(Sender: TObject);
 begin 
  idpop3.Host := Query3.fieldbyname('pop3_server').AsString;
   idpop3.Username := Query3.fieldbyname('benutzer').AsString;
   idpop3.Password := Query3.fieldbyname('passwort').AsString;
   idpop3.Connect(-1);
   IDSMTP.Host := Query3.fieldbyname('smtp_server').AsString;
   IDSMTP.Username := Query3.fieldbyname('benutzer').AsString;
   IDSMTP.Password := Query3.fieldbyname('passwort').AsString;
   IDSMTP.Port := 25;
   idMessage.Subject:= subjekt_text;
   IdSMTP.Connect;//Stelle Verbindung her
   {....}
   try
    IdSMTP.Send(IdMessage);//Nachrich senden
   finally
    idsmtp.Disconnect;
    idpop3.Disconnect;
   end;
end;                    

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:
31:
32:
33:
34:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//Serverdaten
  IdSmtp1.Host := 'smtp.googlemail.com';
  //IdSmtp1.Port := 25;
  //Benutzerdaten für Authentifizierung
  IdSmtp1.Username := 'dein benutzername@googlemail.com';
  IdSmtp1.Password := '*****';
  idMessage1.Subject:= Edit3.text;//Betreffzeile
  idMessage1.Recipients.EMailAddresses := edit1.text;//Empfänger
  idMessage1.Sender.text:= edit2.Text;//Absender
  idMessage1.Body.Add(Edit3.Text);//Text
  try
    IdSmtp1.Connect;
    IdSmtp1.Send(IdMessage1);
  finally
    IdSmtp1.Disconnect;
  end;
{IdSSLIOHandlerSocket1 auf die Form ziehen
 FOlgende Einstellung: SSLOptions:
                       Method: sslvSSLv2
                       Mode: sslmClient

 Einstellung bei IDSMTP1: IOHandler: isSSLIOHandlerSocket1
                          Port: 465
                          Authentication: atLogin

 Achtung: Bei Google mußt Du Deine E-Mail Einstellung folgendermaßen ändern:
  Gehe auf EInstellung --> Weiterleitung und POP
  Bei POP-Download: Entweder POP für alle Nachrichten oder
                             POP nur für ...
  Klick auf Änderung speichern}

end;