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:

procedure IniSchreiben;
var
   Strom: TFileStream;
   i: Integer;
   sString:string;

 procedure StringSchreiben(str: String);
 var
   iLen: LongInt;
 begin
   iLen:= Length(str);
   Strom.Write(iLen, SizeOf(LongInt));
   Strom.Write(str[1], iLen);
 end;

begin
 try
   Strom:= TFileStream.Create(ChangeFileExt( Application.ExeName, '.cfg'), fmCreate)
   Strom.Write(Farbevon, SizeOf(TFarben));
   for i:= 0 to 15 do
   begin
     sString:=Form1.ColorDialog1.CustomColors.Values['Color'+Chr(Ord('A')+i)];
     StringSchreiben(sString);
   end;
 finally
   Strom.Free;
 end;
end;					

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

type
  TFarben=record
    BundMarkierung, Stimmhilfe, MarkNote, MarkTon, Hintergrund, Fixed, Noten, FixedFont:TColor;
  end;

var
  Farbevon:TFarben=(
      Bundmarkierung: $B1FEF9;
      Stimmhilfe: clSilver;
      MarkNote: clBlack;
      MarkTon: $007DD6FC;
      Hintergrund: $00E0FEFD;
      Fixed: $F0FBFF;
      Noten: clBlack;
      FixedFont: clBlack
      );