IdSNMP1 + Delphi

[xxbesoxx]

Здравствуйте ребята. не когда не работал с протоколом SNMP задача такой, если кто то знает помогите пожалуйста

{важности реализации в программе: сетевое оборудование и ИБП с поддержкой SNMP, компьютеры, принтеры, другие сетевые устройства).}

пишу так и нечего не возвращает

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNMP1.Active := True;
IdSNMP1.Host := '192.168.1.103';
IdSNMP1.Port :=  13385 ;
idSNMP1.Community:='public';
IdSNMP1.Query.Clear ();
IdSNMP1.Query.Host :=  '192.168.1.103';
IdSNMP1.Query.Port := 13385;
IdSNMP1.Query.Community :=  'public';
IdSNMP1.Query.MIBAdd('1.3.6.1.3.80.1.1.0','',);
IdSNMP1.Query.PDUType := PDUGetRequest;
if IdSNMP1.SendQuery then
Memo1.Lines.Append('Replies: ' + IntToStr(IdSNMP1.Reply.ValueCount));
IdSNMP1.Free;

[xxbesoxx]

Тема закрыта сам разобрался