Multiple Data in one formular

[FB1]

Good Day
Crystall 11

I have multple data from different formulars that need to be shown on four line only.

I have created the formulars for each entry
if {Command.Mode} <> 'HD' or {Command.Mode} <> 'RIP' and {@PTHTest} = 1 Then 'PTH'
else
''
this gives me 30 fields, yes I could create a detail for each line and then suppress those that dont = 1, but I need to get them on to four lines only.
looking at the idea to create 4 lables and put the field into the relevant lable, but is their a formular I can use, like the address formular to make life easier

this is the data and formular used in the old system
if not equal(ID.STS,"H*","*D") then
4 begin
5 if $HbA1cT=1 then $line2:=("HbA1c")
6 if $FerrT=1 and $line2<>"" then $line2:=con($line2,"; Ferritin")
7 if $FerrT=1 and $line2="" then $line2:=("Ferritin")
8 if $PTHTest=1 and $line2<>"" then $line2:=con($line2,"; PTH")
9 if $PTHTest=1 and $line2="" then $line2:=("PTH")
10 if $CholT=1 and $line2<>"" then $line2:=con($line2,"; TotChol")
11 if $CholT=1 and $line2="" then $line2:=("TotChol")
12 if $LipidT=1 and $line2<>"" then $line2:=con($line2,"; Lipids")
13 if $LipidT=1 and $line2="" then $line2:=("Lipids")
14 if $CRPT=1 and $line2<>"" then $line2:=con($line2,"; CRP")
15 if $CRPT=1 and $line2="" then $line2:=("CRP")
16
17 if $INR=1 then $line3:=("INR-?")
18 if $TFT=1 and $line3<>"" then $line3:=con($line3,"; TFT")
19 if $TFT=1 and $line3="" then $line3:=("TFT")
20 if $SerAlT=1 and $line3<>"" then $line3:=con($line3,"; SerumAl")
21 if $SerAlT=1 and $line3="" then $line3:=("SerumAl")
22 if $SerMgT=1 and $line3<>"" then $line3:=con($line3,"; SerumMg")
23 if $SerMgT=1 and $line3="" then $line3:=("SerumMg")
24 if $DigoxT=1 and $line3<>"" then $line3:=con($line3,"; Digoxin")
25 if $DigoxT=1 and $line3="" then $line3:=("Digoxin")
26 if $LithT=1 and $line3<>"" then $line3:=con($line3,"; Lithium")
27 if $LithT=1 and $line3="" then $line3:=("Lithium")
28 if $vitDT=1 and $line3<>"" then $line3:=con($line3,"; 25-OH VitD")
29 if $vitDT=1 and $line3="" then $line3:=("25-OH VitD")
30 if $vitB12T=1 and $line3<>"" then $line3:=con($line3,"; Vit B12")
31 if $vitB12T=1 and $line3="" then $line3:=("Vit B12")
32 if $RCFolT=1 and $line3<>"" then $line3:=con($line3,"; RC Folate")
33 if $RCFolT=1 and $line3="" then $line3:=("RC Folate")
34 if $B2MTest=1 and $line3<>"" then $line3:=con($line3,"; Beta2M")
35 if $B2MTest=1 and $line3="" then $line3:=("Beta2M")
36
37 if $MSUTest=1 then $line4:=("MSU")
38 if $cycloT=1 and $line4<>"" then
39 $line4:=con($line4,"; Cyclosoprin level")
40 if $cycloT=1 and $line4="" then $line4:=("Cyclosporin level")
41 if $FK506T=1 and $line4<>"" then $line4:=con($line4,"; FK506 level")

Your help would be most appreciated
Ralph