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

[Doberman]

Попробывал все скрипты выложэнные в этой теме,не один не работает =), Только вот единственный от TAMBIK

const
nik='pixel';
Enchant=13;

var
UseItem, EnchantItem: string;
Count, CurrentEnch: integer;
Timer01: TTimer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=800;
end;

procedure OnTimer01(Sender: TObject);
begin
buf:=UseItem;
SendToServerEx(nik);
buf:=EnchantItem;
SendToServerEx(nik);

end;

procedure Free;
begin
Timer01.free;
count:=0;
CurrentEnch:=0;
end;

begin
if FromServer and (pck[1]=#$81) then case ReadD(2) of
0: begin
CurrentEnch:=CurrentEnch+1;
if CurrentEnch=Enchant then Timer01.enabled:=false;
end;
2: CurrentEnch:=0;
end;


if FromClient and (pck[1]=#$14) then UseItem:=pck;
if FromClient and (pck[1]=#$58) then EnchantItem:=pck;
if FromClient and (pck=#$1B#$02#$00#$00#$00) then
begin
pck:='';
Timer01.enabled:=not(Timer01.enabled);
end;
end.

И то после нажатия 1соц действия,над юзнуть точку чтоб он точнул,а сам автоматом нехочет ).
Я знаю что данные скрипты выкладывались под блесс точи,но мне интерестно почему они нехотят точить простыми точками.
На ХБ блесами точил на ура,а на Т0 простыми немогу,поидее должножэ работать)
Подскажите как подредактировать дан скрипт чтоб он автоматом точил)