TMail

type TMail = class

protected

  FMailText: String;

  FMailStream: TMimeStream;

  FRecipients: String;

  FSender: String;

  FSubject: String;

  function GetCount;

  function GetSection();

  procedure SetSection();

public

  constructor Create;

  destructor Destroy; override;

  procedure AddTextSection();

  procedure AddFileSection();

  procedure AddStreamSection();

  procedure DeleteSection();

  procedure RemoveSection();

  property MailText: String; [rw]

  property Sender: String; [rw]

  property Recipients: String; [rw]

  property Subject: String; [rw]

  property Sections: TMimeSection; default; [rw]

  property SectionCount: Integer; [r]

end;

TMail

TObject