Автозаточка, просто и сердито!

[Doberman]

v0ltag3, я в твоём скрипте менял скорость,где подсказал
NLObP,

timer.interval:=500; //время задержки

Поставил там "3" стало гораздо быстрее точить.
Попробую где ты говориш поредоктировать),мож незабанит)

#$FE: begin
if pck[2]=#$81
then begin
flagFE:=true;
delay (2000);
exit;
end;