Delphi - Findcomponent

Tengo este procedimiento:

procedure iniciaTabs;
var
checo:Tcomponent;
i:integer;
begin
with form1 do
for i:=1 to 9 do begin
checo:=findcomponent('TabSheet'+inttostr(i));
(*) with checo as Ttabsheet do begin
TabVisible:=false;
end;end;
end;

en la linea del asterisco, explota y me da el error:

Invalid class typecast

que me pasa? como puedo corregir esto?

gracias

Dado que ya sabes que tipo de componente es, por que no declaras checo como TTabSheet, si eso no es entonces pudiera ser que el tabsheet que buscas no lo haya encontrado e intenta hacer invisible algo que no existe, prueba poniendo antes del with un if como lo siguiente

procedure iniciaTabs;
var
checo:Tcomponent;
i:integer;
begin
with form1 do
for i:=1 to 9 do begin
if findcomponent('TabSheet'+inttostr(i))<>nil then begin
checo:=findcomponent('TabSheet'+inttostr(i));
with checo as Ttabsheet do begin
TabVisible:=false;
end;end;
end;
end;