Datasnap Server mit Timer?

[Koloss]

Wiedermal ganz einfaches Beispiel, Datasnap Server mit Assistenten und einen Timer reingeleg!
Ich komme nicht in den Timer Event hinein, wo liegt das Problem?
Für die Frage warum ich da einen Timer möchte, weil ich von wo anderes für diesen Client Daten hole!

Delphi-Quellcode:

unit ServerMethodsUnit1;

interface

uses System.SysUtils, System.Classes, System.Json,
    Datasnap.DSServer, Datasnap.DSAuth, DataSnap.DSProviderDataModuleAdapter,
  Vcl.ExtCtrls;

type
  TServerMethods1 = class(TDSServerModule)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure DSServerModuleCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
  end;

implementation


{$R *.dfm}


uses System.StrUtils;

procedure TServerMethods1.DSServerModuleCreate(Sender: TObject);
begin

end;

function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
end;

function TServerMethods1.ReverseString(Value: string): string;
begin
  Result := System.StrUtils.ReverseString(Value);
end;

procedure TServerMethods1.Timer1Timer(Sender: TObject);
begin
  Tag := 5; // Da komme ich nicht rein, wieso den nicht?
end;