TIdEMailAddressItem

type TIdEMailAddressItem = class(TCollectionItem)

protected

  FAddress: string;

  FName: string;

  function GetText;

  procedure SetText();

  function ConvertAddress;

  function GetDomain;

  procedure SetDomain();

  function GetUsername;

  procedure SetUsername();

public

  procedure Assign(); override;

  constructor Create();

published

  property Address: string; [rw]

  property Name: string; [rw]

  property Text: string; [rw]

  property Domain: string; [rw]

  property User: string; [rw]

end;

TIdEMailAddressItem

TObject