Скрипт авто БД, СВС

[Pat]

Вобщем опробовал я дома замену 2F на 45 вместо скилов поставил действие

procedure MagicSkillUse(MagicID:integer);
begin
  buf:=#$45;
  WriteD(MagicID);
  WriteD(00);
  WriteC(00);
  SendToServerEx(Name);
procedure createskillbase;
var
 i, j, n: integer;
begin
for i:=1 to 200 do
    begin
    skillbase[i,1]:=0;
    skillbase[i,2]:=0;
    end;

 n:=0;
 J:=10;
 listbox1.items.Clear;
for I:=1 to 200 do
    begin
    skillbase[i,1]:=ReadD(j);
    skillbase[i,2]:=ReadD(j);
    if skillbase[i,2]=0 then break;
    j:=j+5;
    inc(n);


    listbox1.items.Add('ID:'+inttostr(1007)+'   '+SkillsName.Values[IntToStr(1007)]);

    end;

if N>0 then skillhave:=true;
end;

пати принимает скил самона кидает, но из пати не выходит, правлю интуитивно скрипт, но чувствую с дельфи и паскалем начну знакомится