Hola adripugliesso.
Para agregar otra opción, tambíen podrías hacer:
Código Delphi
[-]
...
type
TMainForm = class(TForm)
...
private
procedure WmFormActivate(var Msg:TMessage); message WM_ACTIVATE;
...
implementation
procedure TMainForm.WmFormActivate(var Msg: TMessage);
begin
Tu_Timer.Enabled := Msg.WParam = WA_ACTIVE;
inherited;
end;
Saludos