TIdSNMP = class(TIdUDPClient)
private
fCommunity: string;
fTrapPort: Integer;
procedure SetCommunity(const Value: string);
public
Query : TSNMPInfo;
Reply : TSNMPInfo;
Trap : TSNMPInfo;

constructor Create(aOwner : TComponent); override;
destructor Destroy; override;
function SendQuery : boolean;
function QuickSend(const Mib, Community, Host:string; var Value:string):Boolean;
function QuickSendTrap(const Dest, Enterprise, Community: string;
Port, Generic, Specific: integer; MIBName, MIBValue: TStringList): integer;
function QuickReceiveTrap(var Source, Enterprise, Community: string;
var Port, Generic, Specific, Seconds: integer; var MIBName, MIBValue: TStringList): integer;
function SendTrap: integer;
function ReceiveTrap: integer;
published
property Port default 161;
property TrapPort : Integer read fTrapPort Write fTrapPort default 162;
property Community : string read fCommunity write SetCommunity;
end;