Moin!
Erstmal würde ich dir grundlegend empfehlen die alten Constructoren und Destructoren aufzurufen:
Delphi-Quellcode:
Type
...
Constructor Create(AOwner : TComponent); Override;
Destructor Destroy; Override;
....
....
....
constructor TDatenbank.Create(AOwner : TComponent);
begin
Inherited Create(AOwner);
try
FMysql := TZConnection.create(self);
FAbfrage := TZQuery.create(self);
FAbfrage.Connection := FMysql;
Ini := TIni.create(self);
Ini.onFehler := iniOnFehler;
except
Fehler(10000);
end;
end;
destructor TDatenbank.destroy;
begin
beenden;
FMysql.Free;
FAbfrage.free;
Ini.free;
Inherited Destroy;
end;
Und dann solltest du den Constructor auch ordentlich überschreiben und nicht einen neuen definieren der sich dann um nix kümmert (Owner fehlt)...
Und den Destructor entsprechend...
MfG
Muetze1