wiederholungen zusammenfassen?

[PaddyMu]

hallo^^
ich habe gerade gemerkt dass mein quelltext ewig lang ist
da sich viele phraseb wiederholen wollte ich fragen ob man es zusammenfassen kann
hier ein beispiel:

Delphi-Quellcode:

       
begin if
             Zahl17=28
                      then begin
                           Zahl5:=255;
                           Zahl6:=255;
                           Zahl7:=255;
                           Zahl8:=240;
                      end;
       end;

       begin if
             Zahl17=29
                      then begin
                           Zahl5:=255;
                           Zahl6:=255;
                           Zahl7:=255;
                           Zahl8:=248;
                      end;
       end;

kann man das irgendwie kürzer gestalten? von dieser art existieren weitere 5 6 stück..
MfG