Проблема с запуском программы!

[JasperCRT]

Срочно помогите!!! Кому не сложно опишите как можно сделать такую вещь! Есть Сервер и клиент на сокетах. Нужно чтобы при включение клиента он проверил есть ли соединение с интернетом и если нету то подождал и потом опять проверил и если подключение появилось то подключился к серверу. Делал многими способами ничего хорошего из этого не вышло клиент либо не подключается при обнаружение соединения и вылетает либо просто простаивает без каких либо видимых действий! Делал так:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
procedure TForm1.FormCreate(Sender: TObject);
var
connect:integer;
begin
               repeat
               if InetIsOffline(0) then
               sleep (5000)
               else begin
               Connection;
               Connect:=1;
               end;
               until connect=1;

end;

procedure Tform1.Connection;
  begin
ClientSocket1.Host:='simplewizard.no-ip.org'; {Адрес сервера }
ClientSocket1.Port := 777; {Порт сервера}
Clientsocket1.Open;
end;

Результата никакого когда соединение есть она просто подключается, а когда нет она минуту висит и вылетает БЕЗ каких либо ошибок!

[maxionans]

проверку-подключение сделай по таймеру, а не при создании формы