написано на коленке.
delphi Код:
var
timer:ttimer;
procedure ontimer(sender:tobject);
begin
pck := hstr('packet'); //пакет
sendtoserverex('charname');
end;
procedure init;
begin
timer := ttimer.create(nil);
timer.ontimer := @ontimer;
timer.interval := 10; //интервал (ms)
timer.enabled := true;
end;
procedure free;
begin
timer.free;
end;
begin
end.