[delphi.com.ar]

Te voy a pasar algunas validaciones algo básicas, pero pueden servirnos para detectar el error:

if Assigned(screen.Forms[1]) Then
begin
  {hacer el ciclo}
  if screen.Forms[1].Components[a] is TTabSheet Then
    Caption := IntToStr(screen.Forms[1].Components[a].ComponentCount);
end;

Saludos!