[demon112]

чёт я вообще недоганяю... зачем тебе там эти всякие булеаны? а чем тебе delay(100) не устраивает? можно ещё так:
var ms:integer;
begin
ms:=GetRelativeTimeMs;
...
код
...
while GetRelativeTimeMs-ms<100 do // задержка
begin
end;
end.

тут задержка будет ровно 100мс, т.к. тут считается время выполнения цикла.