1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

---------------------------
Anwendungsfehler
---------------------------
Exception ERegistryException in Modul Gemini.exe bei 000281A8.

Fehler beim Holen der Daten für 'Suchbegriffe_löschen'.


---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Gemini
---------------------------
Zugriffsverletzung bei Adresse 74DD0DE8. Lesen von Adresse 74DD0DE8.
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Gemini
---------------------------
Zugriffsverletzung bei Adresse 74DD0DE8. Lesen von Adresse 74DD0DE8.
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Error
---------------------------
Runtime error 217 at 0040F4E5
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

---------------------------
Anwendungsfehler
---------------------------
Exception ERegistryException in Modul Gemini.exe bei 00028128.

Fehler beim Holen der Daten für 'Suchbegriffe_löschen'.


---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Gemini
---------------------------
Zugriffsverletzung bei Adresse 74DD0DE8. Lesen von Adresse 74DD0DE8.
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Gemini
---------------------------
Zugriffsverletzung bei Adresse 74DD0DE8. Lesen von Adresse 74DD0DE8.
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:

---------------------------
Error
---------------------------
Runtime error 217 at 0040F465
---------------------------
OK   
---------------------------					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

    ComboBox1.Items.Clear;
    Pth2AppData := GetSpecialFolder(Handle,CSIDL_LOCAL_APPDATA);
    Pth2AppData := Pth2AppData + '\' + 'Gemini';
    AssignFile(SearchData,Pth2AppData + '\SB.TXT');
    Reset(SearchData);
    x := IOResult;
    If x = 0 then
    begin
    // Setzt den letzten Suchbegriff wieder ein
      while not EoF(SearchData) do
      begin
        ReadLn(SearchData,Line);
        ComboBox1.Items.Add(Line);
      end;
      CloseFile(SearchData);
    end else
    begin
      Application.messagebox (PChar('Datei-Suchbegriffe nicht gefunden!'+
                                  #13#10+'Wird neu angelegt.'),'Dateifehler',MB_ICONERROR);
      GenDatei;
    end;

Function TForm5.GenDatei: Integer;
Var x : Integer;
begin
  ReWrite(SearchData);
  x := IOResult;
  If x <> 0 then
  ErrorHandling(x) else
  Result := x;
  Reset(SearchData);
  Append(SearchData);
  WriteLn(SearchData,'--');
  CloseFile(SearchData);
end;					

1:
2:
3:
4:
5:
6:
7:
8:

.
WriteRegBool('Suchbegriffe_löschen',SBC);
.
.
SBC := regist.ReadBool('Suchbegriffe_löschen');
If SBC then
 Form2.CheckBox18.checked := true else
 Form2.CheckBox18.checked := false;