Que error estoy cometiendo en la siguiente sintaxis

[[duilioisola]]

Verifica que cumple con todas las condiciones.

Código Delphi [-]
if Screen.Forms[i].Name = 'FrmChat' then
begin
  if (Assigned(Screen.Forms[i])) then
  begin
    if (Screen.Forms[i] is TFrmChat) then
    begin
      if (Assigned(TFrmChat(Screen.Forms[i]).TimerRoster) then
      begin
         TFrmChat(Screen.Forms[i]).TimerRoster.Enabled := true;      
      end
      else
           ShowMessage('TimerRoster no asignado')
    end
    else
       ShowMessage('Formulario nos es tpo TFrmChat');
  end
  else
     ShowMessage('Formulario no asignado');

[Badillo]

Gracias por la idea [duilioisola] El error que siempre me muestra es

Código Delphi [-]
ShowMessage('Formulario no asignado');

y entonces con el siguiente código, el más sencillo

Código Delphi [-]
FrmChat.TimerRoster.Enabled := true;

No me ha mostrado más el error. Al final estoy garantizando que es el nombre del fromulario.

Gracias a todos por la ayuda.

[[duilioisola]]

Verifica que el formulario está activo.
Si Assigned(x) es falso, quiere decir que x = null.
Esto podría darse si el formulario se ha cerrado o algo por el estilo.

[[duilioisola]]

Para debugar pon un TMemo en la ventana principal y un timer que ejecute algo que te muestre las ventanas de Screen.

Ejemplo

Código Delphi [-]
procedure TFMPrincipal.OnTimer(Sender: TObject);
var
  i : integer;
  s : string;
begin
  inherited;
  // Limpio el memo
  MDebug.Lines.Clear;

  // Recorro las ventanas de Screen
  for i := 0 to Screen.FormCount -1 do
  begin
    if Assigned(Screen.Forms[i]) then
       s := 'Assigned'
    else
       s := 'NOT Assigned';

    // Nro de ventana, Nombre y si apunta a un formulario nulo
    MDebug.Lines.Add(format('%d - Formulario: %s - %s', [i, Screen.Forms[i].Name, s]));
  end;
end;