Маленькая проблемка

[Zergatul]

Сори за мой нубский топ, но я вот сам никак не разберусь.
Почему этот скрипт у меня работает нормально

var
  Form1 : TForm;

procedure test;
begin
  buf := HStr('38 20 00 00 00 00 00 00 00');  //говорить в чат пробел
  SendToServer;
end;

procedure Init; 
begin
  Form1 := TForm.Create(nil);
  Form1.Caption := '...';
  Form1.BorderStyle := bsSizeable;
  Form1.Position := poScreencenter;
  Form1.Width := 200;
  Form1.Height := 300;
  Form1.FormStyle := fsNormal;
  Form1.OnClick := @test;
  Form1.Show;
end;

procedure Free; 
begin
  Form1.Free;
end;

begin

end.

а этот никогда не выводит сообщение New Packet, что бы я не делал в игре

procedure Init; 
begin
  showmessage('init');
end;

procedure Free; 
begin

end;

begin
  showmessage('New Packet');
end.

Запускаю скрипты из вкладки "Скрипты".

З.Ы. Ппц чуствую себя полным нубом :(