Fórum TabSheet (outra vez) #275802

var 
  I: Integer; 
begin 
  for I := 0 to ComponentCount - 1 do 
  begin 
    if Components[I].ClassType = TTabSheet then 
      Break; //sai do laço caso tenha algum TabSheet 
  end; 
  if I = ComponentCount then //se não tiver nenhum tabsheet o valor de I vai ser igual ao ComponentCount 
  begin 
    //criar dinamicamente um TabSheet 
  end; 
end;

procedure TForm1.CategoryButtons1Categories0Items0Click(Sender: TObject); 
var 
  t: TTabSheet; 
  I: Integer;
begin 

  for I := 0 to ComponentCount - 1 do 
  begin 
    if Components[I].ClassType = TTabSheet then 
      Break;
  end; 

  if I = ComponentCount then
  begin 
    t := TTabSheet.Create(PageControl1); 
    t.PageControl := PageControl1; 
    t.Caption := ´Corte´; 
    t.ImageIndex := -1; 
    t.Visible := True; 

    with TCorte1.Create(t) do 
    begin 
      BorderStyle := bsNone; 
      Align := alClient; 
      Parent := t; 
      Show; 
    end; 
  end; 

end;