Hilfe bei Farbverlauf procedure

[Maik81ftl]

Delphi-Quellcode:

function Farbverlauf(bValue: Boolean; cValue: TColor):TProgSet;
Var H, S: Byte;
    L: Array[0..4] of Byte;
    Col: TProgSet;
begin
  if bValue then
    begin
    ColorToHLS(cValue, H, L[2], S);
    Col.Menst[4]:= HLStoColor(H, L[2]-38-38, S);
    Col.Menst[3]:= HLStoColor(H, L[2]   -38, S);
    Col.Menst[2]:= cValue;
    Col.Menst[1]:= HLStoColor(H, L[2]   +38, S);
    Col.Menst[0]:= HLStoColor(H, L[2]+38+38, S);
    Col.Periode:= Form3.Progset.Periode;
    end;
  if not bValue then
    begin
    ColorToHLS(cValue, H, L[2], S);
    Col.Periode[4]:= HLStoColor(H, L[2]-38-38, S);
    Col.Periode[3]:= HLStoColor(H, L[2]   -38, S);
    Col.Periode[2]:= cValue;
    Col.Periode[1]:= HLStoColor(H, L[2]   +38, S);
    Col.Periode[0]:= HLStoColor(H, L[2]+38+38, S);
    Col.Menst:= Form3.Progset.Menst;
    end;
  Result:= Col;
end;

Was haltet Ihr denne von der Variante???