кажется отсутствует указание на клиент которому ты хочешь отправлять сообщение.
Код:
procedure Init;
begin
UseForConnectName := characterName;
GlobalTimer:=TTimer.Create(nil);
GlobalTimer.OnTimer:=@OnGlobalTimer;
GlobalTimer.interval:=1000;
GlobalTimer.enabled:=true;
end;