TIdReplyPOP3

type TIdReplyPOP3 = class(TIdReply)

protected

  FEnhancedCode: string;

  class function FindCodeTextDelim();

  class function IsValidEnhancedCode();

  class function ExtractTextPosArray();

  function GetFormattedReply; override;

  procedure SetFormattedReply(); override;

  function CheckIfCodeIsValid(); override;

  procedure SetEnhancedCode();

public

  constructor CreateWithReplyTexts(); override;

  procedure Assign(); override;

  procedure Clear; override;

  procedure RaiseReplyError; override;

  class function IsEndMarker(); override;

published

  property EnhancedCode: string; [rw]

end;

TIdReplyPOP3

TIdReply

TObject