Die Benennungen var1, var2, var3, var4 schreien doch nach einem Array! ebenso a,b,c. Dann kannst du einfach ein Verschachtelte for-Schleife benutzen.
Delphi-Quellcode:
for i:=0 to 4 do
for j:=0 to 3 do
begin
if meinrecord.variable[i].boolescherWert[j] then
//...
end;