Fehlerliste in Eigener Unit

[MCOP2001DE]

Hallo
Ich möchte zur Übersichtlichkeit eine Unit für die Fehler Meldungen in mein Programm einarbeiten.
jetzt ich habe folgendes Problem

ich habe eine Unit Fehlerverarbeitung angelegt Folgender Code

Delphi-Quellcode:

unit Fehlerverarbeitung;

interface

uses
  Classes, Windows, Messages, SysUtils, Variants, Controls,
  Dialogs;

type
  Fehlerliste = class(TThread)
  TFehler1501: TTimer;

  private

  public
    procedure Fehler1501();
    procedure Fehler1502(Sender: TObject);
    procedure Fehlermeldung1501();
    procedure Fehlermeldung1502();
    var
     Fehler15010 : String;
     Fehler15011 : String;
     Fehler15012 : String;
     Fehler15013 : String;
     Fehler15014 : String;
     Fehler15015 : String;
     Fehler15016 : String;
     Fehler15017 : String;
     Fehler15018 : String;
     Fehler15019 : String;
     Fehler15020 : String;
     Fehler15021 : String;
     Fehler15022 : String;
     Fehler15023 : String;
     Fehler15024 : String;
     Fehler15025 : String;
     Fehler15026 : String;
     Fehler15027 : String;
     Fehler15028 : String;
     Fehler15029 : String;
  end;

implementation


// Fehlerliste 1501
procedure Fehlerliste.Fehler1501 ();
begin
  if Fehler15010 = '1' then
   begin
     Fehlermeldung1501;
   end;

...

procedure Fehlerliste.Fehlermeldung1501;
begin
  if Fehler15010 = '1' then
   begin
     Showmessage('Fehler 15010 ');
   end;

und möchte nun z.B. ob eine Datenbank verbindung hergestellt ist das wollte ich so abfragen klappt aber nicht

Delphi-Quellcode:

if Fileexists (Grunddaten) then
       begin
         Verbindung.Grunddaten.LoginPrompt                      := False;
         Verbindung.Grunddaten.Connected                        := True;
          if Verbindung.Grunddaten.Connected = False then
           begin
           Fehlerverarbeitung.Fehler15010   := '1'; // Datenbank Grundlagen fehlt
           end;
          end

Kann mir jemand Helfen?

Mirko