[Résolu][DELPHI]Ping automatique sur des serveurs donnés

Bonjour,

Je suis actuellement entrain de faire un programme en delphi utilisant une base de données firebird
Le souci , dans un premier temps , c'est que je n'arrive pas à pinger de machine , ni à afficher le numéro de la machine pingée.

Le graphisme n'est pas poussé , car c'est le cadet de mes soucis.
Voici ici le pack du source contenant la base de données : télécharger
Composants utilisés : IdIcmpClient,IBODatabase,IBOQuery,DataSource
Voilà pour l'essentiel , sinon ce sont des boutons et composants classiques.

Ensuite viendront les problèmes d'affichage du temps de réponse et de la gestion d'historique (affichée sur une autre base).

Merci d'avance

voilà le code complet du bouton 'Ping' qui permet de pinger le serveur choisi :

var
DateChaine: string;
datachaineping: string;
k:integer;
i:string;
a:integer;
begin
a:=dbgrid1.Fields[0].AsInteger;
edit1.Text:=dbgrid1.Fields[2].AsString;

i:=IBOQuery1.fieldbyname('cle_t_serveur').AsString;
PING.Font.Color:=clblack;
IdIcmpClient1.OnReply := IdIcmpClient1Reply;
IdIcmpClient1.ReceiveTimeout := 1000;
Ping.Enabled := False;
try
IdIcmpClient1.Host := edit1.Textfor[/b] k := 1 to spnPing.Value do begin
IdIcmpClient1.Ping(edit1.Textend[/b];
finally
Ping.Enabled := True;
end;