Schreibarbeit sparen

[Alex.P]

Hallo,

gibt es bei Delphi eine Möglichkeit sich Schreibarbeit zu sparen in dem man Variablen irgendwie durchzählt und in Schleifen abarbeitet?
Ich habe einen Code in dem für mehrere Threads und Instanzen immer das gleiche gemacht werden muss allerdings mit eigenen Variablen.
Im Augenblick sieht das noch in etwa so aus:

Delphi-Quellcode:

Port1 := TConnectionPortClass.Create; Port1.PortNr := 1;
Port2 := TConnectionPortClass.Create; Port2.PortNr := 2;
Port3 := TConnectionPortClass.Create; Port3.PortNr := 3;
Port4 := TConnectionPortClass.Create; Port4.PortNr := 4;
...
...
...
if Port.PortNr = 1  then MainForm.Label3Port1.Caption :=  Text1;
if Port.PortNr = 2  then MainForm.Label3Port2.Caption :=  Text1;
if Port.PortNr = 3  then MainForm.Label3Port3.Caption :=  Text1;
if Port.PortNr = 4  then MainForm.Label3Port4.Caption :=  Text1;
...
...
...

Jeder Instanz wird eine eigene Datei zugewiesen, ein eigener Thread, viele Labels, usw, usw.
Dadurch bläht sich der Code bei mir extrem auf und wird unübersichtlich.

Greetz
Alex