1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function farbe (basisfarbe : integer; stufe :byte) : integer;
var
hexcol : string;
r,g,b : integer;
rn,gn,bn : integer;
const
factor = 10;
begin
hexcol := inttohex(basisfarbe,6);
r := strtoint('$'+copy(hexcol,5,2));
g := strtoint('$'+copy(hexcol,3,2));
b := strtoint('$'+copy(hexcol,1,2));
rn := r-(factor*stufe);
gn := g-(factor*stufe);
bn := b-(factor*stufe);
if rn < 0 then rn := 0;
if gn < 0 then gn := 0;
if bn < 0 then bn := 0;
result := strtoint('$' + inttohex(bn,2) + inttohex(gn,2) + inttohex(rn,2));
end;					

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.color := farbe(clred,3);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function farbe (basisfarbe : integer; stufe : integer) : integer;
var
hexcol : string;
r,g,b : integer;
rn,gn,bn : integer;
begin
hexcol := inttohex(basisfarbe,6);
r := strtoint('$'+copy(hexcol,5,2));
g := strtoint('$'+copy(hexcol,3,2));
b := strtoint('$'+copy(hexcol,1,2));
rn := r-stufe);
gn := g-stufe);
bn := b-stufe);
if rn < 0 then rn := 0;
if gn < 0 then gn := 0;
if bn < 0 then bn := 0;
result := strtoint('$' + inttohex(bn,2) + inttohex(gn,2) + inttohex(rn,2));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

function Min(a, b: Longint): Longint; 
begin 
  if a > b then Result := b  
  else  
    Result := a; 
end; 

function Max(a, b: Longint): Longint; 
begin 
  if a > b then Result := a  
  else  
    Result := b; 
end; 

{=======================================} 

function GetHighlightColor(BaseColor: TColor): TColor; 
begin 
  Result := RGB(Min(GetRValue(ColorToRGB(BaseColor)) + 64, 255), 
    Min(GetGValue(ColorToRGB(BaseColor)) + 64, 255), 
    Min(GetBValue(ColorToRGB(BaseColor)) + 64, 255)); 
end; 


function GetShadowColor(BaseColor: TColor): TColor; 
begin 
  Result := RGB(Max(GetRValue(ColorToRGB(BaseColor)) - 64, 0), 
    Max(GetGValue(ColorToRGB(BaseColor)) - 64, 0), 
    Max(GetBValue(ColorToRGB(BaseColor)) - 64, 0)); 
end; 

procedure ShowForms;
var
  i:Integer;
begin
  for i:=0 to Screen.FormCount -1 do begin
    Screen.Forms[i].Show;
    if i >= 1 then begin
//      ShowMessage(IntTostr(i));
      Screen.Forms[i-1].Color:=GetShadowColor(Screen.Forms[i-1].Color);
    end;
  end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
  ShowForms
end;