1:
2:
3:
4:
5:
6:

   SmtpServerName: String;
   SmtpServerPort: Integer;
   SmtpServerUser: String;
   SmtpServerPassword: String;
   SmtpAuthType: Integer;
   UserEmail: String;					

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:

procedure TMessageForm.Button1Click(Sender: TObject);
begin
  Edit1.Text := SmtpServerName;
  Edit2.Text := IntToStr(SmtpServerPort);
  Edit3.Text := SmtpServerUser;
  Edit4.Text := SmtpServerPassword;
  Edit5.Text := UserEmail; 
 with IdMessage1 do
      begin
         Body.Assign(Memo1.Lines);//Was soll ich senden?
         From.Text := UserEmail;//Von wem ist die Nachricht?
         ReplyTo.EMailAddresses := UserEmail;
         Recipients.EMailAddresses := Edit6.Text;//Wem soll ich die Msg senden?
         Subject := Edit7.Text; //Wie lautet der Betreff?
         ReceiptRecipient.Text := From.Text;//Von wem?
      end;

   IdSMTP1.Username := SmtpServerUser;//Welcher Benutzer?
   IdSMTP1.Password := SmtpServerPassword;//Welches Passwort??

//Generelles Setup
   IdSMTP1.Host := SmtpServerName;//Welchen Host soll ich benutzen?
   IdSMTP1.Port := SmtpServerPort;//Welchen Port soll ich benutzen?

//Hier wird die Nachricht gesendet und die Verbindung aufgebaut!
   IdSMTP1.Connect;//Stelle Verbindung her
   try
      IdSMTP1.Send(IdMessage1);//Versuche die Nachrich zu senden
   finally
      IdSMTP1.Disconnect;//Wenn du es geschafft hast, dann trenne die Verbindung
   end;
end;