Než jsem se rozhod požadat tady o pomoc tak jsem to měl takto.
Tak bych to take chtěl nechat ale jen vyměnit ten Image1 za ImageList.1 a nějak vyřešit to překreslovaní.
dIcmpClient.ReceiveTimeout := 1000;
IdIcmpClient.Host := kontrolovanaadresa;
IdIcmpClient.Ping();
if testpingu = 1 then StringGrid1.Cells[10,i]:= clear; // Funkční ping
if testpingu = 0 then StringGrid1.Canvas.StretchDraw(StringGrid1.CellRec t(0,1),Image1.Picture.Graphic); // nefunkčni ping