idsnmp获得oid值

[wsf]

我用idsnmp去get某设备的oid值，我的代码如下：
procedure TForm1.GetSnmpList(OID, IP :String);
var
i: integer;
begin
Memo1.Lines.Clear;

try
IdSNMP.Query.Clear;
//IdSNMP.Community := EdtC.Text;
//IdSNMP.Host := IP;
IdSNMP.Query.MIBAdd(OID,'');
IdSNMP.Query.PDUType := PDUGetNextRequest;
while IdSNMP.SendQuery do
begin
if Copy(IdSNMP.Reply.MIBOID[0], 1, Length(OID)) <> OID then Break;
for I := 0 to IdSNMP.Reply.ValueCount - 1 do
Memo1.Lines.Add(IdSNMP.Reply.Value[I]);
IdSNMP.Query.Clear;
IdSNMP.Query.MIBAdd(IdSNMP.Reply.ValueOID[0], '');
IdSNMP.Query.PDUType := PDUGetNextRequest;
end;
except

end;
end;

可是，执行GetSnmpList后， memo里面是空的，请问高手，哪里出错了？