TClientSocket - проверка списка серверов

[fezilk25]

Необходимо проверить список серверов на возможность подключения, а затем удалить из этого списка "мёртвые" сервера.

Всё бы ничего, но список находится в удаленной БД, т.е. запрос на удаление мертвых серверов нужно делать ПОСЛЕ завершения работы tclientsocket.

Делал так:

procedure TForm2.Button3Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to zquery1.RecordCount - 1 do
  begin
    ips[i] := zquery1.FieldByName('ip').AsString;
    ports[i] := zquery1.FieldByName('port').AsString;
    ipindex:=i;
    zquery1.Next;
    log.Lines.Add(ips[i] + ':'+ports[i]);
    clientsocket1.Address := ips[i];
    clientsocket1.Port := strtoint(ports[i]);
    clientsocket1.active:=true;    
  end;
  for i := 0 to length(ips) - 1 do
    begin    
    if ips[i] <> '' then
        log.Lines.add('del'+ips[i]);
    end;
end;

procedure TForm2.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ips[ipindex] := '';
ports[ipindex] := '';
clientsocket1.Socket.SendText('update');
log.Lines.Add('msg');
clientsocket1.Close;
end;

получается так, что в MEMO (name=log) добавляется сначала строка "del", а затем "msg", хотя, по логике, должно быть наоборот..
Как выполнить команду после завершения перебора серверов?
Что я делаю не так?
Спасибо.