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:

procedure TForm1.PaintLed(var Image: TImage; Value: Byte);
var
  Color: TColor;
begin
  Image.Picture.Bitmap.LoadFromResourceName(hInstance, 'Led');
  Color := RGB(255, 255 - Value, 255 - Value);
  with Image.Canvas do
    begin
    Pixels[6, 3] := Color;  // ab hier werden die Pixel geändert, die der
    Pixels[8, 3] := Color;  // LED ihre Farbe geben
    Pixels[3, 6] := Color;
    Pixels[3, 8] := Color;
    Pixels[6, 11] := Color;
    Pixels[8, 11] := Color;
    Pixels[11, 6] := Color;
    Pixels[11, 8] := Color;
    Pixels[8, 5] := Color;
    Pixels[6, 6] := Color;
    Pixels[7, 6] := Color;
    Pixels[8, 6] := Color;
    Pixels[9, 6] := Color;
    Pixels[5, 7] := Color;
    Pixels[6, 7] := Color;
    Pixels[7, 7] := Color;
    Pixels[8, 7] := Color;
    Pixels[9, 7] := Color;
    Pixels[5, 8] := Color;
    Pixels[6, 8] := Color;
    Pixels[7, 8] := Color;
    Pixels[8, 8] := Color;
    Pixels[9, 8] := Color;
    Pixels[6, 9] := Color;
    Pixels[7, 9] := Color;
    Pixels[8, 9] := Color;
    end;
end;