Jetzt hänge ich mich mal weit aus dem Fenster (weil ungetestet und nur geraten):
Bleib' bitte mal bei meinem vorherigen Ansatz und ändere das AfterOpen dahingehend ab:
Tabelle1TITRE := TStringField(Tabelle1.FindField('TITRE'));
Und im BeforeClose dann halt:
Tabelle1TITRE := Nil;
Bei der Benutzung dürfte es dann bei
Delphi-Quellcode:
if Assigned(Tabelle1TITRE) then begin
ShowMessage(Tabelle1TITRE.AsString);
end;
bleiben.
Funktioniert das?