INI Fragen wie immer

[SaFu]

Hi ich versuche es einfach nochmal und hoffe und bitte das mir vielleicht doch noch einer hilft

wie gesagt die meisten fehler habe ich behoben in dem ich einen timer gesetzt habe aber das mit dem speichern der Farben in die ini datei geht net so wie ich mir das vor stelle

so speicher ich das ganze

Delphi-Quellcode:

procedure TForm6.Button5Click(Sender: TObject);
begin
 Laufschrift := ExtractFilePath(ParamStr(0)) + 'settings.ini';
  begin
    with TMemIniFile.Create(Laufschrift) do
     try
      if Colordialog1.Execute then
       begin
        JSRunningText1.Color:= ColorDialog1.Color;
        WriteString(laufschrifttext,farbe,(ColorToString(ColorDialog1.Color))); // hier speicher ich das
        Form3.JSRunningText2.Color:= ColorDialog1.Color;

        UpdateFile;
       end;
      finally
     Free;
   end;
  end;
end;

das steht dann in der ini
Farbehintergrund=clLime so versuche ich das dann wieder aufzu rufen aber das geht nicht

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var i :integer;
begin
  for i:= 0 to ComponentCount-1 do //XP Anzeige
  if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:= False;


  Laufschrift := (ExtractFilePath(ParamStr(0)) + 'settings.ini');
  with TMemIniFile.Create(Laufschrift) do
  try
    JsRunningText1.Run:= ReadBool(laufschrifttext, ein_aus, JsRunningText1.Run);
    SpinEdit1.Value:= ReadInteger(Laufschrifttext ,stufe, 0);
  
  JSRunningText1.Color:= StringToColor(ReadString(Laufschrifttext,farbe,(JSRunningText1.Color))); // hier bekomme ich einen Fehler

  finally
    Free;
  end;
end;

inkompatieble typen String und Tcolor

wo ist der Fehler