uses IniFiles; 
 
function FontStyleToByte(fs: TFontStyles): byte; 
begin 
  move(fs, result, 1); 
end; 
 
function ByteToFontStyle(b: byte): TFontStyles; 
begin 
  move(b, result, 1); 
end; 
 
// schreiben 
procedure TForm1.Button2Click(Sender: TObject); 
var 
  ini: TInifile; 
begin 
  ini := TInifile.create('c:\test.ini'); 
  ini.writeinteger('Fontstyle', 'Value', FontStyleToByte(Label1.Font.Style)); 
  ini.free; 
end; 
 
// lesen 
procedure TForm1.Button5Click(Sender: TObject); 
var 
  ini: TInifile; 
begin 
  ini := TInifile.create('c:\test.ini'); 
  Label2.Font.Style := ByteToFontStyle(ini.readinteger('Fontstyle', 
    'Value', 0)); 
  ini.free; 
end;