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