Не сохраняются значения в таблицу.

[Aleksandr]

Не сохраняется текущее время в Время_ост или в Время_пуск. Это код пингации IP адресов из базы. Если связь с данным адресом есть, то записывает текущее время в Время_пуск, если связи нет - то записывает время в Время_ост. Для активной строки таблицы получилось. А мне нужно выбрать все значения с num=true. Я выбираю эти значения с помощью запроса

MainForm.ADOQuery3.Active:=false;
  MainForm.ADOQuery3.SQL.Clear;
   MainForm.ADOQuery3.SQL.Text := 'select * from refbook' +
   ' where num=true' +' and Id='+MainForm.DbText1.Caption;
  MainForm.ADOQuery3.Open;
 MainForm.ADOQuery3.Active:=true;
  MainForm.ADOQuery3.Refresh;

Это полный код пингации

if (MainForm.DBGrid2.DataSource.DataSet.FieldByName('IP').Text = '') then begin

showmessage('Digite um HostName ou um End. IP');
exit;
end;

HNDicmp := LoadLibrary('ICMP.DLL');

MainForm.ADOTable1.Refresh;
   MainForm.ADOQuery3.Active:=false;
  MainForm.ADOQuery3.SQL.Clear;
   MainForm.ADOQuery3.SQL.Text := 'select * from refbook' +
   ' where num=true' +' and Id='+MainForm.DbText1.Caption;
  MainForm.ADOQuery3.Open;
 MainForm.ADOQuery3.Active:=true;
  MainForm.ADOQuery3.Refresh;
  MainForm.ADOTable1.Edit;


with MainForm.ADOQuery3 do
 while not eof do begin

if (HNDicmp <> 0) then begin 
@IcmpCreateFile := GetProcAddress(HNDicmp,'IcmpCreateFile'); 
@IcmpCloseHandle := GetProcAddress(HNDicmp,'IcmpCloseHandle');
@IcmpSendEcho := GetProcAddress(HNDicmp,'IcmpSendEcho');
if (@IcmpCreateFile=nil) or (@IcmpCloseHandle=nil) or
   (@IcmpSendEcho=nil) then begin
showmessage('Erro pegando endereзos ICMP');
FreeLibrary(HNDicmp);
end;
end; 
Retorno := WSAStartup($0101,wsadt);

if (Retorno <> 0) then begin 
showmessage('N-гo foi possнvel carregar WinSockets');

WSACleanup();
FreeLibrary(HNDicmp); 
end;

Destino.S_addr := inet_addr(Pchar(  MainForm.ADOQuery3.DataSource.DataSet.FieldByName('IP').Text));
if (Destino.S_addr = 0) then begin 
Host := GetHostbyName(PChar(  MainForm.ADOQuery3.DataSource.DataSet.FieldByName('IP').Text));
end 
else begin
Host := GetHostbyAddr(@Destino,sizeof(in_addr), AF_INET); 
end; 

if (host = nil) then begin


MainForm.ADOTable1.FieldByName('Время_ост').AsString := TimeToStr(now);

WSACleanup();
FreeLibrary(HNDicmp); 
exit;
end;


Endereco := @Host.h_addr_list;

HNDFile := IcmpCreateFile();
for x:= 0 to 4 do begin
Ip.Ttl := char(255); 
Ip.Tos := char(0); 
Ip.IPFlags := char(0);
Ip.OptSize := char(0); 
Ip.Options := nil; 

//dwRetorno := IcmpSendEcho(HNDFile,Endereco^,null,0,Ip,Icmp,sizeof(Icmp),DWORD(5000));
Destino.S_addr := icmp.source;

MainForm.ADOTable1.FieldByName('Время_пуск').AsString := TimeToStr(now);

 MainForm.ADOTable1.Post;

 MainForm.ADOQuery3.Active:=false;
 MainForm.ADOQuery3.Refresh;


end;
Next;
 end;
  if terminated then

   exit;
 end;