1:
2:
3:

  ??? := FontDialog1.Font; // Schriftart
  integer := FontDialog1.Font.Size; // ini.WriteInteger, ini.ReadInteger
  integer := FontDialog1.Font.Color; // ini.WriteInteger, ini.ReadInteger					

1:
2:
3:

String  := FontDialog1.Font.Name; // Schriftart
  integer := FontDialog1.Font.Size; // ini.WriteInteger, ini.ReadInteger
  integer := FontDialog1.Font.Color; // ini.WriteInteger, ini.ReadInteger					

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

 {...}
 with SetupControl as TEdit do
  begin
  newtext := '--' + ShortStr (Text);
  if fsBold in Font.Style then newtext[1] := 'b';
  if fsItalic in Font.Style then newtext[2] := 'i';
  end;
 {...}
 with SetupControl as TEdit do
  begin
  ItemStr := GetItemStr (pRecord);
  Font.Style := [];
  if ItemStr[1] = 'b' then Font.Style := [fsBold];
  if ItemStr[2] = 'i' then
     Font.Style := Font.Style + [fsItalic];
  Delete (ItemStr,1,2);
  Font.Name := ItemStr;
  Text := ItemStr;
  end;