АвТОзаТоЧкА

[TAMBIK]

Cheto,

 Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=400; //<<== время  выбора свитка

 Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=300; //<<== время  выбора предмета

  Timer03:=TTimer.Create(nil);
   Timer03.OnTimer:=@OnTimer03;
   Timer03.enabled:=false;
   Timer03.interval:=3000; //<<== время между заточкой

Вам возможно придется увеличить время .

для примера
300= 0.3 секунды
3000= 3 секунды