[PanAm]

Вот пробую напмсать скрипт автопринятие пати с задержкой

Var
  Timer : TTimer;

procedure Init;
begin
  timer :=TTimer.Create(nil);
  timer.OnTimer :=@AnswerJoinParty;
  timer.enabled :=false;
  timer.interval :=3000;
end;

procedure Free;
begin
  timer.Free;
end;

procedure AnswerJoinParty(Sender: TObject);
begin
  timer.enabled :=false;
  buf:=hstr('2A 01 00 00 00');
  SendToServer;
end;

begin
  if FromServer and (pck[1]=#$39) then begin
    pck :='';
    timer.enabled :=true;
  end;
end.

на вид все верно, но когда из первого окна (чар1) создаю пати со вторым окном (чар2), у чара1 пишет что чар1 принят в пати а во втором вообще ничего не происходит. Что не так?