uses pingsend;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(Traceroutehost('google.cz'));
end;
uses pingsend;
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(Traceroutehost('google.cz'));
end;