Почему не работает цикл?

[JasperCRT]

Почему не работает цикл?

procedure Tform1.CheckConnetion;
var
  error : DWORD;
  wVerReq: WORD;
  wsaData: TWSAData;
  h: PHostEnt;
  begin
 if Clientsocket1.active <> true then begin
 repeat
 wVerReq := MAKEWORD(1, 1);
  WSAStartup(wVerReq, wsaData);
  {Получаем хост (имя) компа}
  h := GetHostByName('simplewizard.no-ip.org');
  error := GetLastError();
    if (error = 0) then
    begin
    {Достаем IP}
  i := iNet_ntoa(PInAddr(h^.h_addr_list^)^);
  WSACleanup;
ClientSocket1.Address := i; {Адрес сервера }
ClientSocket1.Port := 777; {Порт сервера}
Clientsocket1.active:= true; end;
 until error=0;
 end;
 end;

По идее после того как будет получен хост если возникает ошибка (т.е. нет связи с интернетом) то цикл должен начаться заново и так до бесконечности пока не включат интернет, а когда его всё же включат должен сработать код приведенный между if и end и программа выходит из цикла и самой функции!
А у меня при запуске со включенным интернетом программа работает нормально т.е. подключается, а вот когда инет выключен и я запускаю программу она сначала работает нормально но через некоторое время повышается потребление оперативы (смотрел в дз) с 6 мб аж до 10! И в итоге когда интернет включается программа просто не срабатывает, а тупо весит в дз без каких либо действий... Посмотрите кому не сложно! Зарание большое спасибо!

[mss]

Абсолютно бредовый код.
Что это за дикая солянка из WinsockAPI-вызовов, WinAPI-вызовов и фривольных манипуляций с TClientSocket в неблок.режиме ?
Выкинуть нахрен WinAPI и WinsockAPI !!
Все что нужно делается средставами одного TCliеntSocket.
Штудировать события OnConnect и OnError.

С какого перепугу GetLastError обязана возвращать отказы Winsock-подсистемы, если в справке черным по белому написано, что для получения кодов отказов этой подсистемы предназначена WSAGetLastError ?

И с какого перепугу WSAStartup вызывается безусловно, в то время как WSACleanup условно ?

[JasperCRT]

Ммм... если честно код собирал из отдельных частей) В этом деле новичек поэтому-то и получилась "Дикая солянка". Будем переписывать) Спасибо за ответ)
Если не сложно ответь на пару вопросов:
1: Что за "неблок.режим"?
2: Где можно найти документацию по TClient/ServerSocket? (Google не помог!)