TLFront

type TLFront = class

protected

  FEmptyItem: TLSMTPStatusRec;

  FItems: array [0..MAX_FRONT_ITEMS-1] of TLSMTPStatusRec;

  FTop: Integer;

  FBottom: Integer;

  FCount: Integer;

  function GetEmpty;

public

  constructor Create();

  function First;

  function Remove;

  function Insert();

  procedure Clear;

  property Count: Integer; [r]

  property Empty: Boolean; [r]

end;

TLFront

TObject