Testar Rede com Ping

tenho q faer um teste de rede usando o Comando PING

utiliazei este código, mas funcionou só com o Windows 98. Preciso q funcione no Windows 2000 Server e no XP.......

procedure TForm1.Button1Click(Sender: TObject);
var
StartupInfo: TStartupInfo;
ProcessInformation :TProcessInformation;
rc: Boolean;
Handle :THandle;
begin
GetStartupInfo(StartupInfo);
Handle:= CreateFile(´saida.txt´,GENERIC_READ or GENERIC_WRITE, 0, nil, CREATE_ALWAYS , 0, 0);
with StartupInfo do
begin
hStdOutput := Handle;
wShowWindow := SW_SHOW;
dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
end;
rc:= CreateProcess(nil,´c:\windows\system32\cmd ping 127.0.0.1´,nil, nil, True,0 , nil, nil, StartupInfo, ProcessInformation);
if rc then
begin
WaitForSingleObject(ProcessInformation.hProcess, INFINITE);
end;
CloseHandle(Handle);
ListBox1.Items.LoadFromFile(´saida.txt´);
DeleteFile(´saida.txt´);
end;