Ну как вы не поймете. Я вызываю функцию owen_io.ReadUInt и она сама выполняется 2 секунды если нет ответа от прибора! Никакие циклы и проверки тут не причем!
А по любым языкам программирования for I := 1 to 0 do никогда не выполняется тело цикла.