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:

procedure TForm1.Button1Click(Sender: TObject);
var msg: TIdMessage;
   smtp: TIdSMTP;
   lstBody  : TStringList;
begin
  msg:=TidMessage.Create;
  smtp:=TidSMTP.Create(nil);
  try
   msg.Clear;
  lstBody := TStringList.Create;
  lstBody.Add('Zeile1');
  lstBody.Add('Zeile2');
  lstBody.Add('Zeile3');
   msg.From.Address := 'NaTTaC@mantis-media.de';
   msg.Recipients.EMailAddresses := 'dannywitting@aol.com';
   msg.Subject := 'egal';

   smtp.Host := 'smtp.mantis-media.de';
   smtp.Username := 'blabliblubb';
   smtp.Password := 'bliblablum';
   smtp.Port := 25;
   idMessage.Body.Clear;
   idMessage.Body := lstBody;

   SMTP.Connect;
   SMTP.Send(Msg);
 finally
   smtp.Free;
   msg.Free;
   end;