Delphi-PRAXiS - smtp cc/bbc?

Hallo,

ich hoffe, ihr könnt mir hier weiterhelfen.

Aktuell sende die mails über einen smtp server und möchte nun die Funktion cc/bcc Funktion mit einbauen.

Das einfache senden funktioniert, nur leider weiß ich nicht, wie ich die cc/bcc Funktion einsetzen kann?

Hat jemand eine Idee, wie das bei dem nachfolgenden Code aussieht, wie das dort einzubinden ist?

Ich nutze aktuell folgenden Code:

Delphi-Quellcode:

			procedure TfmWarenKorb.SendEmail1(const Recipients: string; const CCList: string; const Subject: string; const Body: string; Att: Boolean; Filename:String);

var

  SMTP: TIdSMTP;

  Email: TIdMessage;

  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;

  Attachment: TIdAttachment;

  I: Integer;

begin

  SMTP := TIdSMTP.Create(nil);

  Email := TIdMessage.Create(nil);

  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);

  SMTP.IOHandler:= SSLHandler;

  try

    SMTP.AuthType := satNone;

    SMTP.Host := Server;//'smtp.gmail.com';

    SMTP.Port := Port;// 587;

    if Att = true then

      Attachment := TIdAttachmentFile.Create(Email.MessageParts, Filename);

    Email.From.Address := emailfrom;

    Email.Recipients.EmailAddresses := Recipients;

    Email.Subject := Subject;

    Email.Body.Text := Body;

    //Email.CCList.EMailAddresses := CCList;

    Email.ReplyTo.EMailAddresses := 'Mailadresse';

    SMTP.Connect;

    SMTP.Send(Email);

    SMTP.Disconnect;

  finally

    if Att = true then Attachment.Free;

    SMTP.Free;

    Email.Free;

    SSLHandler.Free;

  end;

end;