AMessage.CCList.EmailAddresses :=
      "John Doe" , "Jane Doe" ';

      with AMessage.BCCList.Add do
      begin
        Name := 'John Doe';
        Address := 'jdoe@some.net';
      end;

      with AMessage.BCCList.Add do
      begin
        Name := 'Jane Doe';
        Address := 'janed@another.net';
      end;