1:
2:

function ReadBinaryStream(const Section, Name: string; Value: TStream): Integer;
procedure WriteBinaryStream(const Section, Name: string; Value: TStream);					

1:
2:
3:
4:

  FTastenbelegung = record  
    T: shortstring; 
    Z: TObject; 
  end;					

1:
2:

s := 'c:\test\test' + #0;
WriteProfileString('Testabschnitt', 'Verzeichnis',@s[1]);					

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

Procedure LoadIni;
var INIFile   : TMemIniFile;
    Procedure HexStrToBin(const Str: String; P: Pointer);
    var len: integer;
    begin
      HexToBin( PChar(Str), P, Len);  
    end;

begin 
  INIFile:=TMemIniFile.create(AppDataPath + INIFileName);
  try
    // Einlesen eines Arrays als Binärfeld:
    HexStrToBin(INIFile.ReadString('Section', 'Variable', ''), @Variable);
    // so kann man auch alle Werte, für die die INI nichts vorgesehen hat,
    // über HexStrToBin verarbeiten (z.B. mein o.a. TObject ;-) nämlich
    // die Info "Sender: TObject")
    ...					

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

Procedure StoreINI;
var INIFile   : TMemIniFile;
    function BinToHexStr(P: PChar; Len: Integer): String;
    var str: string;
    begin
      SetString(Result, nil, Len * 2);
      BinToHex(P, PChar(Result), Len);
    end;
begin 
  INIFile:=TMemIniFile.create(AppDataPath + INIFileName);
  try
    // ein Array ...
    INIFile. WriteString('Tol', 'ToloHE', BinToHexStr( @ToloHE, SizeOf(ToloHE)));
    // eine Windows-Variable, die sich weder WriteInteger noch mit irgend 
    // etwas anderem speichern lässt:
    INIFile.WriteString('General', 'PrnOrient', BinToHexStr( @PrnOrient, SizeOf(PrnOrient)));