Прерывание цикла

Здравствуйте!
Имеется счетчик СИ 8 (Овен) с помощью его производится подсчет метража бумаги, задача - написать скрипт по которому в случае когда линия работает, а пересчет не происходит выводить сообщение о неисправности счетчика.
написал вот такой код:

Var In1, In2: Integer;
In3, In4, Out1:boolean;

Begin
// Присвоить переменной In2, значение переменной In1
In2:=In1;
// Присвоить переменной In1, значение переменной канала
In1:=ReadValue('Показания счетчика импульсов');
// Присвоить переменной In3, значение переменной канала
In3:=ReadValue('schet ok/err channel 9');
// Присвоить переменной In4, значение переменной канала
In4:=ReadValue('line C run/stop channel 5');

If (In2=In1) and (In4=true) then
Out1:=true
else
Out1:=false ;

// записать значение переменной Out1 в канал
WriteValue('schet ok/err channel 9',Out1);

end.

так как я ноль в программировании , ни чего не вышло
проблема в том что сравнение происходит слишком быстро
а значение с счетчика может не менятся в течении 5 минут, в зависимости от скорости линии

как мне сделать что то типа задержки ?
или может другой вариант написания скрипта