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');