var
att:TIDAttachmentFile;
begin
 TRY
   screen.cursor:=crhourglass;
   eMail.CCList.EMailAddresses := 'blah blah';
   SMTP.Host := 'blah blah';
   SMTP.UserName := 'blah blah';
   SMTP.Password := 'blah blah';
   SMTP.Port := 25;
  // SMTP.AuthType := atDefault; /*was kommt anstelle dessen hin?*/
   SMTP.Connect;
   while not eof do begin
     email.MessageParts.Clear;
     email.ContentTransferEncoding := 'udf-8';
     with TIdText.Create(Email.MessageParts, nil) do
     begin
         ContentType := 'text/plain';
         CharSet := 'ISO-8859-1';
         ContentTransfer := 'base64';
         body.Text := 'blah blah'
     end;
    // Anfang EMail erzeugen
     eMail.From.Text := 'blah';
     eMail.Recipients.EMailAddresses := 'blah';
     eMail.Subject := 'blah';
     email.ContentType := 'multipart/related; type="text/plain"';
     email.CharSet :='ISO-8859-1';
     //Attachment ranbauen
     att := TIdAttachmentFile.Create(Email.MessageParts, 'c:\test.pdf');
     //Prüfen ob Attachment da
     if FileExists('c:\test.pdf') then
        SMTP.Send(eMail);
     SMTP.Disconnect;
  end; //with helpi do begin
  screen.Cursor :=crdefault;
 except
     screen.Cursor :=crdefault;
 END;

end;