Double déclaration dans un With

Je m'explique, j'ai une syntaxe du type :
With TOTO do
begin
-------------------------------------------------------------------
------ 300 lignes de codes avec plein, plein de variable
------ et d'appel de procédures, fonctions, ....
-------------------------------------------------------------------
end;

Mon pb est que dans l'exécution de mon programme j'ai deux cas de figure :cry: , l'un avec TOTO et l'autre avec TOTO_BIS.
Je ne souhaite pas duplique le code et/ou sortir mes 300 lignes dans une procédure.
Est-il possible de faire quelque chose du type :? :
with decode(Test,True,TOTO,TOTO_BIS ) do
begin
-----------
end;

Merci de votre aide.

Je dis ça rapidement mais est-ce que cela irait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

var VTOTO : TOBJECT; I : integer; begin for I := 0 to 1 do begin if I = 0 then VToto := Toto else VToto := Toto_bis; with VTOTO do begin ... end; end;

---

Non ?

Moi, je sortirai tout dans une procédure style :

Code:

---

1 2 3 4 5 6

Procedure Gerertoto(PToto : TObject); begin with PTOTO do begin end; end;

---

si Toto et TotoBis sont des controls identiques tu peux passer ce composant à ta procédure

Code:

---

1 2 3 4 5

procedure proc(monToto : Tobject); begin   with (montoto as TEDIT) do //Tedit pour l'exemple mais c'est ce que tu veux ;) ....

---

Les grands esprits se rencontrent ;-)

Il y a bien toi, mais j'ai vu personne d'autre qui correspondait à cette description ;)