Scrennsaver Adressenverletung bei 0000000

[Johannes013]

ja, die zeile davor ist "begin ".

Hier ist der Code des Timers:

Delphi-Quellcode:

procedure TSettings.Timer1Timer(Sender: TObject);
begin
   SetIni.WriteString('Main','ColorValue',ColorToString(ColorD.Color)); // Farbe aus ColorDialog
   Label2.Color:=ColorD.Color;  //Anzeige der Fabe
   ColorChange.Text:=ColorToString(ColorD.Color); // TComboBox
end;

und der des OnCreats:

Delphi-Quellcode:

procedure TSettings.FormCreate(Sender: TObject);
var s: string;
begin
   try
     SetIni:=TIniFile.Create(GetApplicationDirectory+'PegasusScreenSaver.ini');
     s:=SetIni.ReadString('Main','SaverType','System');
     if s='System' then begin Checker.Layout:=tlTop;TextAnim.Hide;RandPic.Hide;ChOwnType.Hide;end;
     if s='No' then begin Checker.Layout:=tlCenter;TextAnim.Hide;RandPic.Hide;ChOwnType.Hide;end;
     if s='RandPic' then
       begin
         Checker.Layout:=tlBottom; // Label mit "X" als Marker
         ChOwnType.Layout:=tlTop; // Genau das gleiche
         TextAnim.Show; // Label der Auswahl
         RandPic.Show; // Label der Auswahl
         ChOwnType.Show; // Marker
         ShowRandPic; // Prozedure die versch. Sachen zeigt.
         Label2.Color:=StringToColor(SetIni.ReadString('Main','ColorValue','clblack')); // Lesen
         ColorD.Color:=StringToColor(SetIni.ReadString('Main','ColorValue','clblack'));  //Lesen
       end;
     if s='TxtAnim' then begin Checker.Layout:=tlBottom;ChOwnType.Layout:=tlBottom;TextAnim.Show;RandPic.Show;ChOwnType.Show;end;
   except
     ShowMessage('Es ist ein Fehler aufgetreten! Saver wird fortgesetz!');
   end;

Das Problem ist auch, dass trotzdem der TRY-Anweisung ein Fehler von Windows kommt.

mfg (gute nacht!) Johannes013