Exception EAccessViolation?

[cugar]

Danke für deine Mühe, in meiner Form gibt es nur zum Schluß diese Procedute:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=False;
if MessageDlg('Anwendung beenden?',mtConfirmation, [mbYes,mbNo],0) = mrYes then begin
ActionDBaseDeaktiv;
TimerDatumZeit.Enabled:=False;
CanClose:=True;
end;
end;
Er bearbeitet alles ohne Probleme, dann kommt die Fehlermeldung.