Перебрать все значения ip таблицы для пинга.

[Aleksandr]

Есть таблица с колонками ip,num,Время_пуск, Время_ост . мне нужно взять все значения ip у которых num=true и пропинговать. Если пингуется то записать время в колонку Время_пуск, если не пингуется то записать время в колонку Время_ост .

procedure TMainForm.Button1Click(Sender: TObject);
var
t:integer;
EditText:string;
buffsize:integer;

begin
MainForm.ADOTable1.Refresh;
   MainForm.ADOQuery3.Active:=false;
  MainForm.ADOQuery3.SQL.Clear;
   MainForm.ADOQuery3.SQL.Text := 'select ip,Время_пуск, Время_ост from refbook' +
   ' where num=true' +' and Id='+MainForm.DbText1.Caption;
  MainForm.ADOQuery3.Open;
 MainForm.ADOQuery3.Active:=true;
 // MainForm.ADOQuery3.Refresh;
  MainForm.ADOTable1.Edit;


 MainForm.ADOQuery3.DataSource.DataSet.First;
while not MainForm.ADOQuery3.DataSource.DataSet.Eof do
begin
      if (MainForm.ADOQuery3.DataSource.DataSet.FieldByName('IP').Text = '') then
      begin
           showmessage('Введите IP адрес');
           exit;
      end ;


     EditText:=MainForm.ADOQuery3.DataSource.DataSet.FieldByName('IP').Text;
     buffsize:=strtoint(OptionForm.Edit1.Text);
     IdIcmpClient1.BufferSize:=buffsize;
     IdIcmpClient1.Host:=EditText;
     for t:=0 to 2  do
          begin
              IdIcmpClient1.Ping(EditText);
              IdIcmpClient1.Receive(750);
              if IdIcmpClient1.ReplyStatus.TimeToLive=0 then
              ShowMessage('Превышен интервал ожидания для запроса');
          end;

if  IdIcmpClient1.ReplyStatus.TimeToLive=0 then


if MainForm.ADOTable1.FieldByName('Время_ост').AsString='' then
begin
    MainForm.ADOTable1.FieldByName('Время_пуск').AsString:='';
    MainForm.ADOTable1.FieldByName('Время_ост').AsString := TimeToStr(now);
    MainForm.ADOTable1.FieldByName('color').AsString:='Red';
    Beep;
    MainForm.RzTrayIcon1.ShowBalloonHint( 'Внимание остановлен',
                        'IP - '+MainForm.ADOTable1.FieldByName('IP').AsString);

     MainForm.ADOTable1.Post;
end
 else
 begin
if  IdIcmpClient1.ReplyStatus.TimeToLive<>0 then
if MainForm.ADOTable1.FieldByName('Время_пуск').AsString='' then
begin
    MainForm.ADOTable1.FieldByName('Время_ост').AsString:='';
    MainForm.ADOTable1.FieldByName('Время_пуск').AsString := TimeToStr(now);
    MainForm.ADOTable1.FieldByName('color').AsString:='Green';
    MainForm.ADOTable1.Post;
end;
 MainForm.ADOQuery3.DataSource.DataSet.Next;
end;
end;
end;