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:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

Begin  
  idSMTP.Host     := gsSMTPServer;
  idSMTP.Username := gsMailUSR;  
  idSMTP.Password := gsMailPWD;
  idSMTP.Port     := 25;  

  idMessage.From.text   := 'Mail-Server';  
  idMessage.Sender.text := fMail.SendText;  
 
  idMessage.Recipients.EMailAddresses := fMail.Empf;  
  idMessage.CCList.EMailAddresses     := fMail.CC;  
  idMessage.Subject                    := fMail.Subject;  

  Body      := TStringList.Create;
  Body.Text  := fMail.BodyText;
  idMessage.Body.Clear;  
  idMessage.Body := Body; 

  
  if Trim(fMail.FileName) <> '' then begin
    if FindFirst(fMail.Path + fMail.FileName, faAnyFile, DirInfo) = 0 then begin
      repeat
        idMessage.IsEncoded    := true;
        Anhang                := TIdAttachmentFile.Create(idMessage.MessageParts);
        Anhang.StoredPathName  := fMail.Path + DirInfo.Name;
        Anhang.FileName        := DirInfo.Name;
        Anhang.OpenLoadStream;
        Anhang.CloseLoadStream;
      until FindNext(DirInfo) <> 0;
    end;
  end;
  
  try
    idSMTP.Connect;  
    idSMTP.Send(idMessage);  
    idSMTP.Disconnect;  
  except 
    on E : Exception do begin  
      if idSMTP.connected then begin
        try 
          idSMTP.disconnect; 
        except 
        end;
      end;
      SendInfo('Fehler beim Mail Versand : ' + E.Message);
    end;  
  end;  
end;                    

1:

TIdAttachment.Create(idMessage.MessageParts, FileName[i]);                    

1:

Anhang:= TIdAttachmentFile.Create(idMessage.MessageParts);