variable leer??

[Privateer3000]

Einen wunderschönen 4. Advent an alle!

kurz der quell:

Code:

procedure TForm4.RadioGroup1Click(Sender: TObject);
var
ini3: TInifile;
begin
case RadioGroup1.ItemIndex of
0: BGFarbindex := 'clRed';
1: BGFarbindex := 'clYellow';
2: BGFarbindex := 'clBlue';
3: BGFarbindex := 'clWithe';
end;
Ini3:=TIniFile.Create('dat\settings.ini');
    try
    Ini3.WriteString('Farben','BGPreis',BGFarbindex);
    finally
    Ini3.Free;
end;
end;

BGFarbindex ist eine globale variable. soweit so gut.
Es wird auch der entsprechende Eintrag in der ini erstellt.
Aber der Wert ist leer?!was läuft schief??

Grüsse