[ReiFF]

Ну вот что получается, результат записывается в ListBox только после того как выполняется цикл. Не могу додуматься как сделать так чтоб результат по каждому пакету записывался во время цикла, а не после него.

Код:

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
ListBox1.Items.Insert (0,'Reply:'+IntToStr (AReplyStatus.MsRoundTripTime));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin x:=1; while x < 15 do begin
Self.IdIcmpClient1.Host:=Edit1.Text;
Self.IdIcmpClient1.ReceiveTimeout:=5000;
Self.IdIcmpClient1.Ping;
x:=x+1;
end;
end;
end.

Админ: Пользуемся тегами для оформления кода!