Après avoir appliqué la solution que l'on m'a corrigée bien gentiment, un nouveau petit souci m’arrive.
Mon application contient des TabbedNotebooks imbriqués.
Mon but est de pouvoir renommer les différents onglets à ma guise.
Dans un premier temps il faut savoir que les TabbedNotebooks sont créés dynamiquement sauf le premier :

Ci-dessus les propriétés name des différents TabbedNotebooks et leur hiérarchie (pour aider a comprendre) :

Je voulais savoir comment déclarer un objet dynamique pour l’utiliser aussitôt (l’objet est déjà existant lors du lancement de la fonction) :

Nomobjet := ‘ partistatique’+InsToStr(numdynamique) ;

Mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Renommage_piece();
var
page: TTabbedNotebook;
begin
with TNB_principal do
begin
    page := 'TNB_principal_' + IntToStr(PageIndex);
    end ;
with page do
 begin
    Pages[PageIndex] := 'Page ' + IntToStr(PageIndex);
    end;
end;
PS : Désolé, de faire un deuxième poste mais je pence que vue que ce sont deux sujets différents se sera peu être mieux pour les personnes qui recherche sur le forum. Aillant marqué d’un résolu l’autre poste je pence avoir fait au mieux : P